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PREFACE 


This  Memorandum  documents  a  computer  program  for  the 
recognition  of  symbols  handprinted  on  a  RAND  Tablet  or  sim¬ 
ilar  device  used  in  conjunction  with  a  CRT  display.  This 
documentation  describes  the  program  in  sufficient  detail 
to  facilitate  its  use,  maintenance,  and/or  recoding  in 
another  computer  language.  Since  the  program  is  written 
in  IBM-360  assembly  language,  understanding  of  the  docu¬ 
mentation  requires  familiarity  with  this  language.  The 
study  resulting  in  this  program  is  but  one  facet  of  an 
overall  search  for  techniques  to  increase  the  facility  of 
the  man-computer  interface. 
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SUMMARY 


This  Memorandum  documents  a  computer  program  that 
permits  an  on-line  computer  user  to  print  text  naturally 
and  have  it  recognized  accurately.  The  program  recognizes 
handprinted  letters,  numbers,  punctuation  marks,  and 
geometric  figures;  it  separates  characters  written  in 
quick  succession  and  in  close  proximity.  The  program  is 
written  as  a  re-entrant  process  in  IBM-360  assembly  lan¬ 
guage;  it  requires  about  thirty-seven  hundred  32-bit  words 
of  storage.  The  user  must  provide  programs  that  1)  com¬ 
municate  with  an  input  device  such  as  the  RAND  Tablet  to 
supply  a  sequence  of  writing-instrument  coordinates  to  the 
recognition  program;  2)  select  options  in  real-time  based 
on  context;  and  3)  use  the  recognition  program's  outputs 
for  displaying  and  editing  information  on  a  CRT  display 
device. 

This  documentation  describes  the  program  at  two  levels. 
The  most  general  description  lists  the  symbols  recognized 
and  discusses  feature  extraction,  character  separation, 
symbol  recognition,  and  user  options.  The  second  level 
provides  a  computer  listing  of  the  assembly-language  pro¬ 
gram.  This  listing  includes  descriptions  of  the  logical 
functions,  calling  sequences,  and  input/output  parameters 
of  each  of  the  major  processes  comprising  the  program,  and 
outlines  the  information  processing  and  flow  of  control. 

The  Appendix  briefly  describes  processes  and  macros  that 
perform  functions  required  by  the  recognition  program. 
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I.  INTRODUCTION 

.  + 
This  Memorandum  documents  a  symbol-recognition  program 

that  is  part  of  an  experimental  software  system  called  GRAIL 
(GRAphical  Input  Language)  [2]  under  development  at  The  RAND 
Corporation  (and  supported  by  the  Advanced  Research  Projects 
Agency) .  The  objective  of  GRAIL  is  to  investigate  methods 
by  which  a  user  may  deal  directly,  naturally,  and  easily  with 
his  problem.  As  one  means  of  eliminating  distracting  opera¬ 
tional  mechanics  from  problem  solving,  the  system  features 
the  ability  to  communicate  with  a  computer  via  a  single  pen¬ 
like  instrument  moved  over  a  two-dimensional  surface  in  con¬ 
junction  with  a  CRT  display Communication  is  enhanced  by 
incorporating  a  program  that  interprets  freehand  motions 

*4* 

and  provides  immediate  feedback. 

This  symbol- recognition  program  allows  an  on-line  com¬ 
puter  user  to  print  or  draw  symbols  naturally,  and  have  them 
recognized  accurately  and  quickly,  even  though  it  recognizes 
a  large  set  of  symbols.  Designed  to  work  for  many  users, 
the  program  imposes  few  constraints  on  style,  speed,  or  posi¬ 
tion  of  writing;  it  is  not  intended  to  be  modified  for  indi¬ 
vidual  printing  styles.  It  makes  use  of  size  and  position 
information  to  differentiate  among  symbols  not  distinguish¬ 
able  by  shape  alone.  Preliminary  experiments  [1]  indicate 
that  recognition  accuracy  (not  including  lower-case  letters 
and  geometric  symbols)  is  about  90  percent  for  inexperienced 


A  general  description  of  this  program  together  with  a 
discussion  of  user  interaction,  a  performance  evaluation, 
and  references  to  related  work  appear  in  Ref.  1. 

1*1* 

Italicized  words  are  defined  in  the  Glossary  at  the 
end  of  this  section  (pp.  5-10) . 

1*1*1" 

An  immediate,  continuous  track  on  the  display  cor¬ 
responds  to  the  writing  instrument  position.  A  completed 
track  is  replaced  by  a  symbol  after  a  few  milliseconds  for 
recognition  plus  a  time  delay  for  symbol  separation. 
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users.  This  error  rate  is  tolerable  because  of  the  quick 
response  and  the  GRAIL  editing  facilities. 

The  recognition  program  has  been  used  daily,  as  part  of 
the  GRAIL  system,  while  developing  means  for  creating,  edit¬ 
ing,  and  executing  computer  code  and  flowcharts.  The  GRAIL 
system  is  being  developed  on  an  IBM  System/360  Model  40  and 
is  written  in  360  assembly  language. 

The  recognition  program  within  the  GRAIL  system  is 
wrihten  to  operate  under  a  nonstandard  GRAIL  supervisor  and 
in  conjunction  with  a  nonstandard  CRT  display;  a  modified 
version  has  been  written  that  operates  under  the  IBM  OS/360 
operating  system  and  in  conjunction  with  an  IBM  2250  display 
unit.  The  differences  between  the  GRAIL  recognition  program 
documented  here  and  the  OS  program  are  summarized  in  the 
Appendix.  The  OS  program  also  has  a  number  of  users  at 
RAND  (its  use  is  described  in  Ref.  3) . 


THE  PROGRAM 

The  user  must  provide  programs  that:  1)  communicate 
with  an  input  device  such  as  the  RAND  Tablet  [4]  in  order 
to  provide  a  sequence  of  x~,'y  coordinates  to  the  recognition 
program;  2)  select  options  in  real-time  based  on  the  context 
of  the  input;  and  3)  use  the  recognition  program's  outputs 
for  displaying  and  editing  information  on  a  CRT  display  based 
on  context.  When  the  recognition  program  has  been  provided 
with  a  time-ordered  set  of  x,y  coordinates  (describing  the 
motion  of  a  writing  stylus)  and  a  set  of  control  bits,  it 
normally  places  vector  strings  (which  approximate  the  stylus 
motion)  directly  into  a  display  buffer  a a  it  receives  the 
inputs;  upon  completion  of  each  symbol,  the  program  returns 
a  character  code  (its  interpretation  of  the  input)  along  with 
some  geometrical  properties  of  the  symbol. 

The  recognition  program  is  written  as  a  reentrant  pro¬ 
cess  in  360  assembly  language.  It  requires  about  thirty- 
seven  hundred  32-bit  words  of  storage.  Each  logical  instance 
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of  this  process  requires  26  words  for  data  and  context ; 
the  remaining  storage  is  for  the  read-only  code,  which  is 
required  only  once. 

The  user  program  calls  the  process  CHAREC,  which  in 
turn  calls  the  processes  REC  and  CLOCK  and  a  set  of  remote 
code  sequences  (processes  with  general-purpose  register 
input/output  operating  in  the  environment  of  the  calling 
process  context)  referred  to  herein  as  RCS's.  CHAREC  and 
its  RCS's  perform  "inking"  (generation  of  the  vector  strings), 
feature  extraction,  and  character  separation.  CLOCK  is  used 
as  a  real-time  clock  for  separating  characters  by  timing. 

REC,  together  with  its  RCS's,  identifies  characters  by  test¬ 
ing  the  features  computed  by  CHAREC.  Most  of  the  tests  are 
performed  in  INTERP,  an  RCS  comprised  of  decision  tables. 
Figure  1  outlines  the  input/output  parameters  and  logical 
functions  of  the  two  processes  CHAREC  and  REC.  The  pro¬ 
cesses  and  RCS's  called  by  CHAREC  and  REC  are  indicated  by 
asterisks.  The  figure  was  drawn  using  the  GRAIL  system 
(but  does  not  illustrate  this  system's  scope  or  symbology). 

THE  DOCUMENTATION 

The  following  documentation  describes  the  program  at 
two  levels.  The  most  general  description  lists  the  symbols 
recognized  and  discusses  feature  extraction,  character 
separation,  character  identification,  and  user  options. 

The  second  level  provides  a  computer  listing  of  the 
assembly- language  program.  This  listing  includes  descrip¬ 
tions  of  the  logical  functions,  calling  sequences ,  and 
input/output  parameters  of  each  of  the  processes  and  RCS's 
(except  CLOCK) ;  and  outlines  the  sequence  of  information 
processing  in  CHAREC,  REC,  and  INTERP.  Entry  points  in 
these  outlines  are  labeled  (e.g.,  ****ENTRY****)  identically 
to  the  corresponding  entry  points  in  assembly- language  pro¬ 
gram  listings.  Also  described  are  the  program's  parameters, 
features,  and  indicators  used  by  CHAREC,  REC,  and  the  RCS's. 
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In  addition  to  summarizing  the  difference  between 
the  GRAIL  and  OS  programs,  the  Appendix  lists  the  CRT  dis¬ 
play  character  codes  and  briefly  describes  CLOCK,  CHAR 
(the  GRAIL  process  that  allows  the  user's  application  pro¬ 
gram  to  interact  with  the  Tablet  by  providing  a  convenient 
interface) ,  and  the  GRAIL  macros  as  used  by  the  recognition 
program. 


GLOSSARY1- 
A( NAME ) 
ANAME 


aspect  ratio 


The  address  of  NAME. 

In  a  aall  to  process  NAME,  this  is  a 
linkage  between  the  calling  process 
contest  and  NAME'S  context;  the  label 
"ANAME"  is  user  determined. 

A  character’ 8  height  divided  by  its 
width. 


buffer 


byte 


call 


calling  sequence 


cannot  interpret 


CRT 


A  number  of  bytes  used  for  transmitting 
a ,y  coordinates  to  the  recognition  pro¬ 
gram  or  vector  strings  from  the  program. 

Eight  bits;  referred  to  as  0  to  7,  left 
to  right. 

Transfer  of  flow  of  control  to  another 
process . 

The  sequence  of  information  and  commands 
required  to  aall  a  process. 

A  sequence  of  input  coordinates  not 
interpretable  as  one  of  the  allowable 
symbols',  same  as  "no  character." 

Cathode  ray  tube. 


- 1 - 

In  addition  to  those  italicized  above,  other  words 
and  phrases  used  throughout  the  text  are  also  defined. 
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character 


character  code 

context 


data 

daughter  process 
display 

display  stream 

EEXIT 


ending  point 


A  sequence  of  input  coordinates  encoded 
as  an  entity  by  this  program;  same  as 
" symbol "  (see  The  Symbols  Recognized, 
Sec.  II) . 

A  1-byte  encoding  of  a  character  (see 
CRT  Display  Character  Codes,  Appendix, 

p.  162) . 

1)  a  continuous  storage  block  con¬ 
sisting  of  linkages  between  parent 
{catling)  and  daughter  ( called ) 
processes ,  formal  parameters ,  and 

other  information;  2)  the  environment 
used  to  interpret  the  meaning  of  an 
action  or  inputs. 

1 )  x  ,y  coordinates;  2)  indicators  or 
computed  quantities  used  by  the  program. 

A  process  called  by  a  parent  process. 

A  programmed  output  device  that  pre¬ 
sents  an  image. 

The  sequence  of  instructions  control¬ 
ling  the  display. 

Appears  in  a  call  to  a  process  or  RCS; 
EXIT  is  a  re-entry  point  in  the  calling 
( parent )  process  corresponding  to  a 
return  from  the  called  ( daughter ) 
process  or  RCS;  the  label  "EXIT"  is 
user  determined. 

The  x ,y  position  at  which  the  writing 
stylus  micro  switch  is  opened  when 
terminating- a  stroke. 

The  place  at  which  control  resumes. 


entry  point 
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F 

feature 

formal  parameter 

FPARAM 

geometric  corner 

6PARAM 

H 

informal  parameter 

ink 

ink  track 

instance 

I PARAM 


1)  full  computer  word  (32  bits) ; 

2)  formal  (input/output)  -parameter . 

A  computed  attribute  of  a  symbol  which 
is  used  for  identification. 

An  input/output  data  location  provided 
a  process  by  its  parent. 

In  a  call  to  a  process,  refers  to  the 
formal  (input/output)  parameter  PARAM 
of  the  calling  ( parent )  process;  the 
label  "PARAM”  is  user  determined. 

A  detected  sharp  change  (90°  or  more) 
in  the  direction  of  the  writing  stylus 
motion. 

A  reference  to  the  parameter  PARAM  in 
a  call  to  a  process.  G  =  F  for  a 
formal  (input  or  output)  parameter  of 
the  calling  process;  G  =  I  for  an 
informal  (local)  parameter;  the  label 
"PARAM”  is  user  determined. 

Computer  halfword  (16  bits) . 

Temporary  or  constant  data  defined 
within  a  process. 

1)  same  as  " ink  track";  2)  the  action 
of  generating  an  ink  track. 

A  displayed  string  of  vectors  that 
approximates  the  writing  stylus  motion. 

The  appearance  of  a  calling  sequence 
to  a  process  in  the  program. 

In  a  call  to  a  process,  refers  to  the 
informal  (local)  parameter  PARAM  of 


-8- 


NAMEA 


no  character 


parameter 
parallel  task 


parent  process 

pen 


pendown 

penup 

PSG 


process 


raster  unit 


the  calling  {parent)  process;  the 
label  "PARAM”  is  user  determined. 

In  a  call  to  process  NAME,  a  read¬ 
only  link  to  NAME;  the  label  "NAMEA" 
is  user  determined. 

A  sequence  of  input  coordinates  not 
interpretable  as  one  of  the  allowable 
symbols ;  same  as  " cannot  interpret." 

Temporary  or  constant  data. 

An  instruction  sequence  initiating 
two  lines  of  control  within  the 
program. 

The  process  that  called,  a  daughter 
process . 

The  writing  instrument  that  is  moved 
on  the  Tablet  writing  surface;  same 
as  "sty lus . " 

Closure  of  the  writing  stylus  micro 
switch  due  to  a  downward  force. 

Opening  of  the  writing  stylus  micro 
switch  by  release  of  a  downward  force. 

Program  Status  Group,  a  GRAIL  con¬ 
ceptual  entity  used  for  parallel  task 
synchronization . 

A  computer  program  segment,  somewhat 
akin  to  a  subroutine,  accessed  by  a 
formal  call  (see  "reentrant  process"). 

1/1024  of  the  Tablet  or  display  surface 
dimension — 0.01  in.  in  the  case  of  a 
standard  10.24  by  10.24-in.  Tablet. 
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raw  data  point 

read-only 

reentrant  process 


RCS 

remote  code 
sequence 

starting  point 

stroke 

stylus 


A  writing  stylus  coordinate  pair  as 
received  from  the  input  device. 

Computer  storage  that  is  read  (and 
executed  if  code)  but  not  modified. 

A  process  requiring  separate  linkage 
and  data  storage  blocks  for  each  usage, 
but  only  a  single  storage  block  of 
read-only  code.  When  executed,  the 
code  is  not  modified  and  therefore  may 
be  re-used  even  if  the  process  has  been 
suspended  before  completion. 

Remote  code  sequence . 

A  process  with  general-purpose  regis¬ 
ter  input/output  operating  in  the 
environment  of  the  calling  ( parent ) 
pro  cess  context ;  has  no  context  but 
is  reentrant . 

The  x,y  position  at  which  the  writing 
stylus  micro  switch  is  closed  when 
initiating  a  stroke. 

The  sequence  of  x,y  coordinates  be¬ 
tween  closing  and  opening  the  writing 
stylus  micro  switch. 

The  writing  instrument  that  is  moved 
on  the  tablet  writing  surface;  same 
as  "pen." 

A  set  of  x ,y  coordinates  encoded 
internally  by  the  program,  but  which 
may  not  be  a  complete  character  and 
has  not  been  outputted  by  the  program. 


subcharacter 
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symbol 


tablet 


task. 


time-pause  corner 


track 


vector 


X  (or  any  other 
non-blank  charac¬ 
ter  in  column  72) 


A  sequence  of  input  coordinates  encoded 
as  an  entity  by  this  program;  same  as 
"character”  (see  The  Symbols  Recognized, 
in  Sec.  II)  . 

An  input  device  comprising  a  pen-like 
writing  instrument  and  a  writing  sur¬ 
face  [4] ;  as  the  stylus  is  moved  over 
the  surface  its  x ,y  coordinates  are 
sent  to  the  computer  for  processing. 

A  sequence  of  instructions  initiating 
lines  of  control  (see  "parallel  task”) . 

A  detected  deceleration-acceleration 
of  the  writing  stylus  motion. 

1)  same  as  " ink  track”;  2)  the  action 
of  generating  an  ink  track. 

A  line  segment  described  by  its  length 
(2,  4,  6,  or  8  raster  units)  and 
direction  (1  of  16  in  22.5°  increments). 

The  writing  surface  horizontal  coordinate. 

A  continuation  indicator. 


The  writing  surface  vertical  coordinate. 
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II.  GENERAL  DESCRIPTION  OF  THE  PROGRAM 

THE  SYMBOLS  RECOGNIZED 

Upper-case  Latin  alphabet. 

Numbers:  0  through  9. 

Lower-case  (script)  Latin  alphabet:  these  characters 
are  not  recognized  very  accurately  in  the  present 
program.  A  lower-case  character  output  code  may  be 
changed  to  the  corresponding  upper-case  output  code 
by  a  one  instruction  change  in  CHAREC. 

Punctuation  marks:  +-=/()*$.,»# 

Left  bracket,  right  bracket,  less  than,  greater  than, 
karat,  tilda  (tilda  is  not  fully  implemented — see 
TILDT,  p.  155) . 

Geometric  symbols  (must  be  single  stroke  and  larger 
in  one  dimension  than  twice  the  normally  expected 
character  height) :  Rectangle,  circle,  triangle  (one 
side  horizontal,  the  other  two  of  approximately  equal 
length) ,  ellipse,  diamond,  trapezoid. 

Erasure  (scrubbing  action) . 

Cannot  interpret. 

FEATURE  EXTRACTION 

The  on-line  nature  of  this  program  enables  processing 
of  the  data  point-by-point  as  the  stylus  is  moved  across 
the  writing  surface.  In  order  to  minimize  time  and  storage 
requirements,  therefore,  CHAREC  (together  with  its  RCS's) 
extracts  features  as  the  data  arrive.  These  features  are: 

The  sequence  of  directions  (right,  left,  up,  or  down) 
of  stylus  motion. 

The  number  and  relative  (to  character  extents)  posi¬ 
tions  of  geometrically  determined  corners. 
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The  number  of  pause-in-time  determined  corners. 

The  number  and  relative  positions  of  relative  maxima 
and  minima  in  y  (the  vertical  direction) . 

The  number  and  relative  positions  of  stroke  starting 
and  ending  points. 

The  absolute  size  of  the  character  in  raster  units 
(1  raster  unit  =  0.01  inch). 

The  ratio  of  height  to  width  of  the  character. 

The  absolute  position  of  the  center  of  the  character 
on  the  writing  surface. 

The  first  process  in  feature  extraction  is  data  re¬ 
duction  (thinning).  When  a  data  point  arrives,  its  posi¬ 
tion  is  compared  with  that  of  the  most  recently  accepted 
data  point.  It  is  accepted  (used  in  further  analysis)  if 
these  two  points  are  sufficiently  far  apart;'  otherwise  it 
is  rejected.  When  this  thinning  distance  is  set  to  0.02 
in. ,  data  are  reduced  by  a  factor  of  about  seven  without 
losing  any  significant  information  about  a  1/4-in. -high 
handprinted  character.  (The  number  of  raw  data  points 
between  thinned  data  points  is  required,  however,  for 
detecting  pause-in- time  corners . )  Upon  the  acceptance  of 
each  new  data  point,  tests  are  made  for  stylus  direction, 
corners,  and  relative  maxima  and  minima. 

CHAREC  is  called  into  action  when  the  stylus  is  placed 
on  the  writing  surface  (micro  switch  closed) ,  and  is  noti¬ 
fied  (via  an  indicator)  when  it  is  lifted  (micro  switch 
opened) .  CHAREC  is  thus  informed  about  the  starting  and 
ending  of  each  stroke.  When  a  stroke  is  completed,  tests 
are  made  to  determine  if  it  is  part  of  the  same  character 
as  the  previous  stroke  set  (previous  subcharacter).  If  so, 
the  character  extents  axe  updated,  the  positions  of  various 
features  are  computed  relative  to  these  character  extents, 
and  this  subcharacter  is  identified.  Otherwise,  the 
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previous  subcharacter  is  outputted  as  a  character,  this 
stroke  treated  as  a  new  subcharacter,  relative  positions 
computed,  and  the  stroke  identified. 

CHARACTER  SEPARATION 

CHARE C  groups  sets  of  strokes  into  characters  by  con¬ 
sidering  timing,  and  the  geometric  extents  and  identifica¬ 
tions  of  the  strokes.  If  a  prespecified  time  elapses 
following  the  end  of  the  most  recent  stroke,  a  character 
is  considered  completed  regardless  of  what  follows.  This 
between- character  time  delay  must  be  greater  than  the 
maximum  expected  delay  between  two  strokes  belonging  to 
the  same  character--0.3  sec  has  proven  optimum  for  ex¬ 
perienced  users.  A  set  of  strokes  is  considered  to  be  a 
completed  character  if  it  cannot  be  combined  with  the 
following  stroke  to  form  an  allowable  character.  Some  * 
stroke  sets  (e.g.,  those  that  form  8,  Q,  A,  and  E)  cannot 
be  combined  with  any  other  stroke  to  form  an  allowable 
character.  Some  other  stroke  sets  (e.g.,  0,  2,  3,  T,  and  F) 
can  be  combined  with  some  strokes  but  not  with  others. 
Strokes  written  in  quick  succession,  which  can  be  combined 
to  form  an  allowable  character,  are  tested  for  overlapping 
or  adjacency --thus  separating  groups  of  strokes  too  far 
apart  to  form  a  character  of  the  normally  expected  size. 

CHARACTER  IDENTIFICATION 

REC  (together  with  INTERP  and  RCS's)  uses  the  set  of 
features  generated  by  CHAREC  (and  its  RCS's)  to  decide  what 
character  was  written.  Individual  strokes  are  identified, 
as  they  sure  drawn,  via  a  data-dependent  sequence  of  tests. 
The  first  test  groups  stroke  descriptions  according  to  the 
first  four  stylus  directions.  This  test  reduces  the  number 
of  stroke  possibilities — typically ,  to  one  or  two.  Any 
further  test  depends  on  the  set  of  possible  stroke 
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identifications,  and  on  previously  tested  features.  The 
program  thus  has  a  tree  structure  as  outlined  in  Pig.  2. 

The  recognition  of  a  multiple-stroke  symbol  is  based 
on  the  identities  of  the  constituent  strokes  and  on  their 
relative  positions — it  is  independent  of  stroke  order.  In 
most  cases,  each  constituent  stroke  requires  only  a  general, 
rather  than  a  precise,  identification  (which  is  a  code  in 
P  or  PAD).  For  example,  a  stroke  recognized  as  a  1,  ) ,  (, 

or  /  if  standing  alone,  need  only  be  considered  as  a  vertical 
(P=l)  if  part  of  a  multiple-stroke  symbol.  This  simplifies 
decision  making. 

REC  performs  a  few  simple  tests,  but  mostly  acts  as  a 
link  between  CHAREC  and  the  testing  procedures  (INTERP  and 
the  RCS's),  or  between  INTERP  and  the  RCS’s.  INTERP  performs 
sequences  of  tests  on  encoded  1-byte  parameters,  thereby 
including  nearly  all  of  the  decision-making  tree  structure. 
Most  of  the  RCS's  perform  complicated  tests  to  discriminate 
among  a  particular  set  of  characters. 

The  following  comments  may  be  useful  when  adding  or 
deleting  a  character  description.  To  add  a  description, 
write  the  character,  observe  its  description  (set  of 
features  calculated  by  CHAREC)  either  visually  or  in  com¬ 
puter  memory,  and  note  the  character  code(s)  outputted  by 
the  decision-making  routines.  If  multiple  characters  are 
outputted,  or  if  a  single  character  with  fewer  strokes 
than  the  written  character  is  outputted,  then  either  this 
particular  stroke  combination  is  not  allowed  and  must  now 
be  added  to  CHECK,  or  a  new  PAD  code  and  a  new  PAD  table 
(see  INTERP,  p.  116)  entry  must  be  added.  If  this  problem 
does  not  occur,  find  the  direction  sequence  (as  encoded  by 
ANG4)  entry  into  INTERP;  then  follow  through  the  tests,  even¬ 
tually  reaching  the  test  resulting  in  the  outputted  character. 
At  this  place,  enter  a  feature  test  that  will  consistently 
distinguish  between  the  written  character  and  the  outputted 
character.  If  no  such  feature  (or  set  of  features)  exists. 
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INPUT: 


STROKE  DESCRIPTION 


TEST: 


TEST: 


TEST: 


OUTPUT: 


^'9*2 — Outline  of  free  structure  for  character  identification 
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it  will  be  necessary  to  add  a  new  CHARE C  RCS  to  extract 
some  new  feature  from  the  raw  data.  If  this  decision  point 
occurs  in  the  middle  of  a  sequence  of  tests,  it  may  be 
necessary  to  introduce  a  new  PAD  code  and  table  entry.  If 
strokes  may  be  added  to  this  character  to  generate  new 
multi-stroke  character  descriptions,  it  must  be  added  to 
CHECK.  To  delete  a  character  description,  follow  through 
the  tests  as  above,  but  delete  the  test(s)  that  result  in 
this  character.  There  may  also  be  corresponding  deletions 
from  CHECK  and  the  PAD  codes  and  table  entries. 

A  modification  of  the  recognition  program  has  been 
written  that  recognizes  the  mathematical  symbols  square 
root,  infinity,  integral,  summation,  and  diagonal  (upper- 
left  to  lower-right)  in  addition  to  the  current  symbols 
(except  apostrophe  and  the  geometric  symbols) .  In  order 
to  allow  any  symbol  to  be  written  any  size  and  at  any  posi¬ 
tion,  the  section  of  CHAREC  that  separates  characters  accord¬ 
ing  to  size  and  position  (see  CHAREC,  p.  41)  and  the  call  (in 
REC,  p.  93)  to  SYMT  (which  recognizes  large  single-stroke 
symbols  as  geometric  symbols)  were  deleted.  The  tests  for 
apostrophe  were  deleted  from  PSTEST  so  that  a  comma  can  be 
recognized  when  written  in  any  position.  The  only  new 
multi-stroke  symbol— infinity  comprised  of  the  same  strokes 
(2  0-like  strokes)  as  a  description  of  the  number  8 — did 
not  require  a  change  in  CHECK  or  a  new  PAD  code.  The  new 
symbols  were  added,  however,  to  certain  places  in  CHECK 
so  that  they  can  be  combined  with  additional  strokes  to 
form  multi-stroke,  symbols — e.g.,  if  diagonal  were  not  added 
to  the  vertical  stroke  section  of  CHECK,  the  letter  x  could 
not  be  written  as  a  diagonal  followed  by  a  vertical.  Since 
one  of  the  first- 4-direction  descriptions  (right-down-up- 
right)  was  previously  a  unique  description  (recognized  as  a 
script  v) ,  but  could  now  also  be  a  description  of  square 
root,  a  new  code  in  ANS4  and  a  corresponding  new  entry  into 
INTERP  were  added.  All  other  changes — either  feature  tests 
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or  setting  character  codes — were  made  in  INTERP.  For 
example,  a  stroke  with  the  direction  sequence  up-down-up — 
starting  point  not  in  the  lower  quarter  of  the  stroke ,  and 
ending  point  in  the  lower  half  of  the  stroke — was  recognized 
as  the  number  2;  but  now,  in  addition,  it  could  be  the 
symbol  integral.  At  the  place  where  these  tests  result  in 
a  branch  to  set  the  character  code  to  2  (see  SNLC1  in  INTERP, 
p.  Ill) ,  this  branch  was  replaced  by  a  2  versus  integral  test. 

This  new  test  results  in  a  branch  to  set  character  code  to 

2  if  the  stroke  starting  point  is  in  the  left  half  of  the 

stroke;  otherwise,  it  results  in  a  branch  to  set  character 
code  to  integral. 

USER  OPTIONS 

Controls 

CHAREC  normally  provides  an  ink  track  (constructed  of 
vectors  of  user-specified  length) ,  and  outputs  character 
codes  along  with  some  character  size  and  position  informa¬ 
tion.  The  ink  track  for  a  handprinted  character  is  deleted 
upon  recognition  of  that  character.  The  user  may  control 
the  operation  of  CHAREC  by  specifying  no-track  and/or  no- 
recognize,  or  halt  with  each  group  of  data  points  (includ¬ 
ing  during  mid- stroke) . 

No-Track .  CHAREC  continues  to  process  the  data  normally 
and  recognize  characters,  but  does  not  store  an  ink  track. 

Any  existing  ink  track  is  deleted. 

No-Recognize .  CHAREC  continues  to  process  the  data 
normally  and  generate  an  ink  track,  but  waits  for  more  data 
when  it  would  usually  (with  the  recognize  option)  take  a 
character  or  no-character  (cannot  interpret)  exit. 

Halt.  CHAREC  deletes  any  existing  ink  track  and  takes 
the  halt  exit.  This  allows  the  user  to  ignore  the  character 
recognizer  when  taking  a  control  action  not  involving  printing. 
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Vector  Length 

The  user  specifies  the  vector  length  to  be  2,  4,  6, 
or  8  raster  units,  where  1  raster  unit  =  0.01  in.  CHAREC 
generates  (and  stores  in  an  ink  buffer)  a  string  of  vectors 
of  this  length  to  approximate  the  raw  data-point  track — 
this  is  the  ink  track.  The  thinning  distance  used  for  data 
reduction  is  set  equal  to  the  vector  length.  If  the  vector 
length  is  8  raster  units,  the  between-character  time  delay 
is  set  to  zero.  The  vector  codes  generated  by  CHAREC  are 
for  a  particular  CRT  display  and  are  not  generally  com¬ 
patible  with  other  displays. 

Character  Size 

The  user  specifies  the  normally  expected  character 
height  and  width.  This  information  is  used  for  distinguish¬ 
ing  between  large  and  small  symbols  (e.g.,  geometric  symbol 
versus  not-geometric ,  )  versus  ' ,  upper-case  c  versus  lower¬ 
case  c,  etc.),  and  for  character  separation.  Character 
separation  by  position  is  based  on  the  distance  (relative 
to  the  normally  expected  character  width)  between  strokes, 
and  on  the  positions  of  strokes  within  character  spaces. 
Comma  and  apostrophe  are  distinguished  by  the  position  of 
the  stroke  within  a  character  space.  CHAREC  assumes  that 
the  writing  surface  is  divided  into  a  grid  of  character 
spaces  the  size  of  a  normal  character.  Each  such  character 
space's  left  (or  bottom)  edge  is  an  integer  number  of 
character  widths  (or  heights)  from  the  writing  surface's 
left  (or  bottom)  edge. 

Between-Character  Time  Delay 

The  user  cannot  set  this  delay  which  is  used  for 
separating  characters.  It  is  presently  a  CHAREC  parameter 
(see  CHAREC  Read-Only  Constants,  p.  24).  However,  this  time 
should  become  a  user  option  by  adding  it  to  the  list  of 
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CHARE  C  inputs  and  changing  CHARE C  accordingly.  This  change 
does  not  alter  the  call  for  CHAREC,  but  does  alter  the 
parent  routine's  block  of  data  for  CHAREC. 
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III.  FUNCTIONAL  AND  PROCEDURAL  DESCRIPTIONS  OF 
THE  PROCESSES  AND  RCS ' S 


CHAREC 


CHAR EC  Function 


♦CHAREC  IS  GIVEN  THE  TIME-SEQUENCE  OF  PEN-DOWNS,  STYLUS  COORDINATES* 

♦  AND  PEN-UPS.  IT  PERFORMS  THREE  PRIMARY  FUNCTIONS. 

* 

♦I.  GENERATE  A  VECTOR-INK  TRACK  (SPECIFIED  VECTOR  SIZE). 

* 

♦2.  CALCULATE  A  SET  OF  FEATURES  FROM  THE  STYLUS  COORDINATE  SEQUENCE. 

♦  THESE  FEATURES  ARE  PRESENTED  TO  THE  ROUTINE  'REC*  EACH  TIME  A 

♦  STROKE  IS  COMPLETED,  AND  *REC*  TRANSLATES  THEM  INTO  A  SUBCHARACTER 

♦  CODE. 

♦  THE  FEATURES  ARE: 

♦  FOR  THE  CURRENT  STROKE 

♦  STYLUS  DIRECTION  SEQUENCE  (QUANTIZED  TO  EAST,  NORTH,  WEST, 

♦  SOUTH  FOR  CHARACTERS.  QUANTIZED  TO  16  DIRECTIONS  FOR  INK  AND 

♦  GEOMETRIC  FIGURES).  • 

♦  THE  NO.  AND  POSITION  OF  GEOMETRIC  CORNERS. 

♦  THE  NO.  OF  TIME-PAUSE  CORNERS. 

♦  THE  NO.  AND  POSITIONS  OF  RELATIVE  MAXIMA  AND  MINIMA  IN  Y. 

♦  FOR  EACH  STROKE 

♦  THE  POSITIONS  OF  THE  PENDOWN ( START ING )  AND  PENUP ( ENDI NG )  PTS. 

♦  FOR  THE  CHARACTER 

♦  THE  BOUNDS 

♦  THE  NO.  OF  STROKES. 

♦  QUANTIZATION  OF  DIRECTIONS  TO  I  OF  4  PREVENTS  THE  GENERATION  OF 

♦  TOC  MANY  DESCRIPTIONS  OF  THE  SAME  CHARACTER  WHILE,  WITH  THE  OTHER 

♦  FEATURES,  IS  SUFFICIENT  FOR  DISCRIMINATION. 

♦  MOST  FEATURES  ARE  REPRESENTED  AS  I-BYTE  NUMBERS  TO  EASE  TESTING. 

♦  FEATURE  POSITIONS  ARE  INDEPENDENT  OF  WHERE  THE  CHARACTER  IS  DRAWN 

♦  ON  THE  TABLET  BECAUSE  THEY  ARE  CALCULATED  RELATIVE  TO  CHARACTER 

♦  BOUNDS. 

♦ 
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*3»  DETERMINE  WHEN  A  CHARACTER  IS  COMPLETE  AND  SEND  THE  CURRENT  SUB- 

*  CHARACTER  CODE  (ALONG  WITH  SOME  GEOMETRIC  INFORMATION — SEE  OUTPUTS 

*  LIST)  TO  THE  USER. 

* 

♦CHAREC  HAS  NO  INK— TRACK*  NO  RECOGNIZE*  HALT.  AND  SUPPRESS  TABLET 
♦OPTIONS.  NO  TRACK,  AND  NO  RECOGNIZE  ARE  INDEPENDENT. 


CHAREC  Call 


*  INST  ACHRC  »CHRCA» GOAT  A,GCHPSG,GINDEX,EFINX , ENCHARX  *ECHARX,EXTX 

*  TN,EXTC 

* 

♦WHERE  ALL  THE  LABELS  ARE  SELECTED  BY  THE  USER 

♦  ACHRC  IS  A  LINKAGE  BETWEEN  THE  CALLING  PROCESS  CONTEXT  AND  CHAREC'S 

♦  CONTEXT 

♦  CHRCA  IS  A  LINK  TO  CHAREC 

♦  DATA  IS  THE  ADDRESS  OF  THE  INPUTS-GUTPUTS  DATA  8 ANK  (SEE  *  CHAREC 

♦  INPUTS,  OUTPUTS' ) 

♦  CHPSG  IS  CHAREC'S  PSG,  3F 

♦  INDEX  IS  THE  DATA/TIME  EXPIRATION  INOEX  (0  =  DATA,  1  =  TIME),  IF 

♦  EXITS  FINX*  NCHARX,  CHARX,  XTN ,  XTC  ARE  DESCRIBED  UNDER  'CHAREC 

♦  EXITS' 


CHAREC  Inputs 


♦  ICP  AUNK  CCW),  NO.  OF  BYTES  DISPLAYED  IS  IN  POSITION  6 

♦MCH  A (MATCH  CATA),  NOT  USED 

♦KEYS  A ( KEYBQARO  DATA),  EGU  MCH,  NOT  USED 
♦PENU  A ( PEN  UP  DATA),  EQU  MCH,  NOT  USED 

♦INPB  A ( INPUT  BUFFER),  TIME  SEQUENCE  OF  12-BIT  X,  12-BIT  Y 

♦  WHEN  EACH  IS  10-BIT  NO.  OF  RASTER  UNITS,  THEN  THE  2  LEAST  S I G- 

♦  NIFICANT  BITS  ARE  00.  THE  NO.  OF  COORDINATE  PAIRS  IS  VARIABLE 

♦  IT  IS  GIVEN  IN  • I NPL  * . 

♦INKS  A ( I NK  BUFFER),  INK  DESCRIPTION  IS  PLACED  HERE  WITH  BYTE  SEC- 

♦  UENCE  00,LX,X,LYJ,Y,4S,V1,V2,V3,...,00  WHERE  EACH  SYMBOL 

♦  BETWEEN  COMMAS  IS  1  BYTE,  (LX,X)  IS  LOAD  X,  ( LY J ,  Y )  IS  LCAC  Y 

♦  AND  JUMP  TO  NEW  <X,Y),  4S  IS  ENTER  VECTOR  MODE  WITH  VECTOR 

♦  LENGTH  CODE  S  (SEE  •  IND* )  AND  THE  VI'S  ARE  VECTOR  DIRECTION 

♦  CODES. 

♦INPL  INPUT  BUFFER  LENGTH,  THE  NUMBER  OF  STYLUS  COORDINATE  PAIRS 

♦  A  GROUP  OF  7  DATA  POINTS  ARRIVING  IN  30  MS  HAS  BEEN  FOUND  CCN- 

♦  VENIENT.  HALF  WORD 

♦INKL  INK  BUFFER  LENGTH,  THE  MAXIMUM  ALLOWABLE  NO.  OF  BYTES  IN  THE 

♦  INK  DESCRIPTION 

♦  HALF  WORD 

♦IND  INDICATORS.  A  l  IN  THE  FOLLOWING  BIT  POSITIONS  INDICATES  PCS- 

♦  ITIVE  ACTIONS.  0=*TRACK,  1=REC0GNIZE,  2=PENUP,  3=HALT ,  4  AND  5* 
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*  CCCE  FOR  SIZE  OF  INK  VECTORS  (00=2  RASTERS,  01=4  RASTERS,  10=6 

*  RASTERS,  11=8  RASTERS),  6,  7=NCT  ASSIGNED 

♦BOX  EXPECTED  CHARACTER  WIDTH , HE IGHT :  12-BIT  DX,  12-BIT  DY 

♦  WHEN  EACH  IS  10-BIT  NO.  OF  RASTER  UNITS,  THEN  THE  2  LEAST  SIG- 

♦  NIFICANT  BITS  ARE  00. 


CHAREC  Outputs  (Set  in  CHAREC  or  REC) 


♦  EP 

♦ 

* 

♦CET 

♦ 

♦  SIZE 

* 

♦CHARA 

♦  AR 

♦ 


ENDPOINTS,  THE  PEN  DOWN  AND  PEN  UP  LOCATIONS  OF  THE  FIRST 
STROKE  IN  THE  CHARACTER.  12-BIT  X,  12-BIT  Y,  12-BIT  X,  12-BIT 
Y.  (END  OF  CHAREC) 

GEOMETRIC  CENTER  OF  THE  CHARACTER:  12-BIT  X,  12-BIT  Y 
(END  OF  CHAREC) 

ACTUAL  CHARACTER  WIDTH  ,  HEIGHT:  12-BIT  DX,  12-BIT  DY 
(END  OF  CHAREC) 

CHARACTER  CODE — SEE  *  RAND  CHARACTER  CODES*  (REC  OR  CHAREC) 
1-BYTE  NO.  OF  GEOMETRIC  CORNERS,  1-BYTE  ASPECT  RATIC  = 

4  HEIGHT/WIDTH.  (END  OF  CHAREC) 


CHAREC  Exits 


♦  FINX 
♦NCHARX 
♦CHARX 

♦  XTN 
♦XTC 


HALT  EXIT 

NO  CHARACTER  EXIT,  MORE  DATA  PENDING  (PARALLEL  TASK) 
CHARACTER  EXIT,  MORE  DATA  PENDING  (PARALLEL  TASK) 
TERMINAL  NO  CHAR  EXIT,  NO  MORE  DATA 
TERMINAL  CHAR  EXIT,  NO  MORE  DATA 


CHAREC  Parameters 


♦EACH  X  OR  Y  COORDINATE  IS  A  12-BIT  NO.  RIGHT  JUSTIFIED  IN  A  HALF-WORD 
♦ 

♦ALL  PARAMETERS  ARE  REFERENCED  IN  CHAREC.  OTHER  REFERENCES  ARE  GIVEN 
♦IN  PARENTHESES.  (REC)  REFERS  TO  A  REFERENCE  IN  ANY  REC  RCS  (EXCEPT 
♦INTERP)  IN  ADDITION  TO  REC  ITSELF.  (ANGLE)  REFERS  TO  THE  IN-LINE  CODE 
♦SECTION  OF  CHAREC  CALLED  ANGLE. 

* 

* 

♦II  TGP  OF  DATA  BANK,  ALSO  TRANSLATION  OF  ‘CODE*  (ANG4, CHECK) 

♦PAD  CONTAINS  THE  ADDRESS  OF  A  PLACE  IN  'INTERP*  (REC, INTERP) 

♦CODE  SEQUENCE  OF  STYLUS  DIRECTIONS — EACH  2  BITS  IS  A  DIRECTION 
♦  00=E »  01=N ,  10=W,  ll=S  (ANGLE, FN56,ANG4, REC, INTERP  ) 

♦XS , YS  X , Y  COORDINATES  OF  A  SMOOTHED  DATA  POINT 

♦XT , YT  X , Y  COORDINATES  OF  A  THINNED  DATA  POINT  ( MXMNS , RELM ) 
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♦  OX  ,  OY 
♦MDX ,MDY 

♦  PANG 

♦ 

♦PACANG 

♦N 

♦  SN 

♦  PUP 

♦ 

* 

* 

♦INKIND 

♦PGUAD 

* 

♦  BR56 
♦DXCtOYC 

♦  XRC  »  XLC 
♦YTCtYBC 

♦  ASPR 

♦  NT 
♦NTC 

♦  INKC 

♦  XYE  *  XYS 

♦ 

* 


X » Y  DISTANCES  BETWEEN  2  PTS  IN  A  THINNED  TRACK  (RELM) 

ABSOLUTE  VALUES  OF  DX,DY 

CODE ( SEE  CODE)  FOR  PREVIOUS  DIRECTION  IN  THE  TRACK  (ANGLE* 
TURNER, RELM) 

CODE  (SEE  CCCE )  FOR  PREV.  ACCEPTED  DIRECTION.  ( ANGLE , TURNER ) 
NO.  DIRECTIONS  IN  THE  LAST  STROKE  ( ANGLE , FN56 , ANG4, REC , I  NT ERP ) 
TOTAL  NO,  OF  STROKES  ( CHECK ,OELTAS ,REC , I NTERP ) 

CHAREC  INDICATOR.  BYTE  0  NOT  USED.  1  IN  THE  FOLLOWING  BIT 
POSITIONS  OF  BYTE  I  INDICATE  POSITIVE  ACTIONS:  0,1=NCT  USED 
2=RECUEST  FOR  REC,  3=2  CHARACTERS,  4=PEN-UP-DELAY  HAS  HAPPENED 
5=CLCCK  HAS  BEEN  CALLED,  6=TAKE  HALT  EXIT,  7=N0T  FIRST  PENCOWN 
NO.  8YTES  OF  INK 

C0DE(NE=00,NW=Cl,SW=10,SE*il)  FOR  CUAORANT  OF  PREVIOUS  DIRECT¬ 
ION  (ANGLE) 

INDEX  BASED  ON  DIRECTIONS  5  AND  6,  VALUES  0-16  ( FN56 , I NTERP ) 

X , Y  EXTENTS  OF  CHARACTER  ( MXMNC  »REC ) 

RIGHT ,LEFT  EXTREMES  OF  CHARACTER  ( DELTA S , MXMNC , REC  ) 

TCP, BOTTOM  EXTREMES  OF  CHAR.  { DELTAS , QMM , MXMNC ,BSRPRM , BH ITE ) 
ASPECT  RATIO  =  4*DYC/DXC  (INTERP) 

NO.  OF  THINNED  POINTS  (TCRNR) 

NT  AT  WHICH  LAST  TIME-CORNER  OCCURRED  (TCRNR) 

NO.  OF  BYTES  OF  INK  IN  THE  FIRST  CHARACTER 

CODEC ( SEE  BELOW)  SEQUENCE  OF  POSITIONS  OF  END, START  POINTS  OF 
STROKES — 1/2  WORD  FOR  EACH  STROKE  ENDPT , STARTPT. ( DELTAS , REC , 
INTERP) 


♦ 

♦ 

♦ 

* 

* 

* 


XLC 


3 

7 

11 

15 


♦WIDTH, HEIGHT  EXPECTED 


YTC 

2  1  C 

654  XRC 
10  9  8 

14  13  12 

YBC 

NORMAL  CHARACTER  WIDTH, 


INPUTS  LIST  (PSTEST) 


HEIGHT — SEE  BOX  IN 


♦YCENT  Y  COORDINATE  OF  CENTER  OF  PREVIOUSLY  OUTPUTED  CHARACTER 
♦PCHAR  CODE  FOR  PREVIOUSLY  OUTPUTTED  CHARACTER 
♦CUSP  TEMPORARY  STORAGE  ( TCRNR , REC , I NTERP ) 

♦NCUSP  NO.  GEOMETRIC  CORNERS  (INTERP) 

♦NPTS  NO.  RAW  DATA  PTS.  SINCE  LAST  THINNED  PT.  (TCRNR) 

♦DEL  MINIMUM  X  OR  Y  DISTANCE  BETWEEN  THINNED  POINTS  (DERIVED  FROM 

♦  INC — SEE  INPUTS).  (RELM) 

*P  CODE  INDICATING  TYPE  OF  PREVIOUS  STROKE  OR  STROKES.  1=CCWN 

♦  VERT,  2=H0RIZ,  3=7-LIKE,  4=V-LIK£,  5*C-LIKE,  6=0-LIKE,  7=U- 

♦  LIKE,  8=2  HORIZS.,  9=UP  VERT,  10=1  VERT  AND  1  H0R1Z,  11=2 

♦  VERTS.  (REC, INTERP) 

♦CHAR  CHARACTER  COCE(SEE  CHARA  IN  LIST  OF  OUTPUTS)  (REC , DOT , INTERP) 
♦TEMP  TEMPORARY  STORAGE  (REC, INTERP) 

♦TINK  NOT  USED 

♦XSP , YSP  X , Y  COORDINATES  OF  SEQUENCE  OF  STARTING  PTS.  OF  STROKES — 1/2 

♦  WORD  EACH  (DELTAS, 8SVM  ) 

♦XEP , YEP  X , Y  COORDINATES  OF  SEQUENCE  OF  ENDING  PTS.  OF  STROKES — 1/2 

♦  WORD  EACH.  (DELTAS, REC) 
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♦ALXYJ  7  BYTES  CONTAINING  CO  ,LX , X , LYJ , Y .ENTER  VECTOR  MODE.OO.  GOES 

*  INTO  INK  BUFFER ( SEE  INKB  IN  LIST  OF  INPUTS) 

♦XL , YL  RAW  DATA  POINT  COORDINATES 

♦XLO.YLC  XL » YL  USED  BY  TRAVEC  (CORNER) 

♦AX, AX1,AX2,AX3  16-DIRECTIONS  USED  FOR  GEGMETRIC^CCRNERS  (CORNER) 
♦AXC1.AX02,  AX12,AX23  & 

*  DIFFERENCES  BETWEEN  16-OIRECTICNS  (CORNER) 

♦NC  NO.  GEOMETRIC  CORNERS  (CORNER) 

♦C  INTERNAL  CORNER  PARAMETER  (CORNER) 


♦DYM 

* 


3/2  EXPECTED  NORMAL  CHARACTER  HEIGHT — SEE  BOX  IN  INPUTS  LIST 
(BHITE,PSTEST,TILDT) 


♦  DXS,OYS  X ,  Y  EXTENTS  OF  CURRENT  STROKE  ( MXMNS ) 

♦XRS , XLS  RIGHT, LEFT  EXTREMES  OF  CURRENT  STROKE  ( MXMNC , MXMNS ) 

♦YTS.YBS  TCP, BOTTOM  EXTREMES  OF  CURRENT  STROKE  ( MXMNC ♦ MXMNS ) 

♦CENT  X  CENTER, Y  CENTER — SEE  CET  IN  OUTPUT  LIST  ( RAZE , PSTEST ) 

♦MVC  ADJUSTABLE  MVC  INSTRUCTION 

♦TTURN  CCDEtSEE  CODE)  FOR  A  SINGLE  DIRECTION  TURN  (TURNER) 

♦TURN  CODECtSEE  CODE)  SEQUENCE  OF  SINGLE  DIRECTION  TURNS  ( INTERP ) 
♦XC , YC  SEQUENCE  OF  X,Y  COORDINATES  OF  GEOMETRIC  CORNERS  (CORNER) 

♦  (XC=BSSM,  YC=BSRPRM ) 

♦CO  THRU  D 15  NO.  OF  OCCURANCES  OF  DIRECTIONS  0  THRU  15  ( SYMT ) 

♦DN  SUM  OF  DC  THRU  015  (SYMT) 

♦NTCUSP  NO.  OF  TIME  CORNERS  (TCRNR,R EC, INTERP) 

♦  PNPTS  PREVIOUS  NPTS  ( TCRNR  ) 

♦PYM AX , PYM I N  Y  LOCATION  OF  PREVIOUS  RELATIVE  Y  MAX,  MIN  (RELM) 

♦NYMAX, NYMIN  NO.  OF  RELATIVE  Y  MAX, MIN  (RELM, REC, INTERP ) 

♦YMAX, YM I N  SEQUENCE  OF  Y  LOCATIONS  OF  RELATIVE  Y  MAX , M I N  FOR  THE 

♦  CURRENT  STROKE — 1/2  WORD  EACH  ( QMM, RELM, INTERP ) 

♦QYMAX, QYM IN  SEQUENCE  OF  CODED ( YTC , CO , 0 1 , 02 , 03  ,  YBC )  QUANTIZED  YMAX, 

♦  YMIN — 1  BYTE  EACH  (QMM, REC .INTERP) 

♦  ALSO  USED  AS  AN  INO ICATOR ( RELM ) 

♦PYMXX , PYMNX  X  LOCATION  OF  PREVIOUS  RELATIVE  Y  MAX, MIN  (RELM) 

♦YMAXX , YMINX  SEQUENCE  OF  X  LOCATIONS  OF  RELATIVE  Y  MAX, MIN  FOR  THE 

♦  CURRENT  STROKE — 1/2  WORD  EACH  (RELM, INTERP, BSMNW.BTEST3) 


CHARE C  Read-Only  Constants 


♦TIME  PEN-UP-DELAY  TIME  FOR  CLOCK,  F'OICO*  »  0.1  SECOND 

♦LXYJ  LOAD  X,  00,  LOAD  AND  JUMP  TO  Y  ,CG 

♦CDOT  THE  CHARACTER  CODE  FOR  A  POINT 

♦HEX  10  THE  DECIMAL  EQUIVALENT  OF  HEX  10 

♦HEX90  THE  DECIMAL  EQUIVALENT  OF  HEX  90 


CHAREC  Sequence  of  Information  Processing 

♦♦♦*ST  ART ♦♦♦♦ 

* 


♦GO  TO  NEW  CHARACTER  ENTRY  ,  THEN  CONTINUE 
* 

♦  ♦♦♦NEW  CHARACTER  ENTRY**** 

* 

♦INITIALIZE 

♦RETURN 

* 

* 

♦♦♦♦NEW  OATA  POINT  ENTRY**** 

* 

♦IF  HALT  DESIRED*  GO  TO  FINISH  ENTRY  1 
♦IF  PEN  UP*  GO  TO  PEN  UP  SIGNAL  ENTRY 

♦IF  NOT  FIRST  PEN  DOWN*  GO  TO  M ID5TRCKE  NEW  DATA  POINT  ENTRY 
* 

♦♦♦♦NEW  STROKE  ENTRY**** 

* 

♦INITIALIZE 

♦SET  NOT  FIRST  PEN  DOWN  INDICATOR 

♦SET  UP  STARTING  POINT  AND  INK-VECTOR  SIZE  IN  INK  BUFFER 

♦SET  UP  THINNING  DISTANCE 

♦IF  INK  DESIRED*  SET  DISPLAY  COUNT 

* 

♦♦♦♦MIDSTRCKE  NEW  DATA  POINT  ENTRY**** 

* 

♦•THIN*  DETERMINES  IF  THE  CURRENT  DATA  PT.  IS  SUFFICIENTLY  FAR  FROM  THE 

*  PREVIOUS  THINNED  PT. 

*  NO,  GO  TO  ANGLE  SECTION-END 

♦'TCRNR*  DETERMINES  IF  A  TIME-PAUSE  CORNER  HAS  OCCURRED 
♦CALCULATE  INCREMENT  BETWEEN  NEW  ANO  OLD  THINNED  POINTS 
*• TRAVEC'  CALCULATES  16-DIRECTION  FOR  INK 

♦IF  NO  INK-TRACK  DESIRED,  ZERO  (SET  TO  2)  DISPLAYED  INK  COUNT,  THEN 

*  SKIP  TO  'CORNER*  CALL 

♦STORE  INK  IF  NEW  THINNED  PT.  IS  SUFFICIENTLY  FAR  FROM  THE  LAST  PT.  IN 

*  THE  INK  TRACK. 

♦'CORNER'  DETERMINES  IF  A  GEOMETRIC  CORNER  HAS  OCCURRED  ANO  CALCULATES 

*  ITS  POSITION. 

*  *  MXMNS '  UPDATES  STROKE  BOUNDS 

♦•RELM'  UPDATES  RELATIVE  MAXIMA  AND  MINIMA 

* 

♦♦♦♦ANGLE  SECTICN-START**** 

* 

♦DETERMINE  QUADRANT  OF  DIRECTION 

♦•HYST'  MODIFIES  DIRECTION  FOR  HYSTERESIS  ZONE 

♦DETERMINE  WHETHER  EAST,  NORTH,  WEST,  OR  SOUTH 

♦IF  NOT  THE  SAME  AS  THE  PREVIOUS  DIRECTION,  'TURNER'  DETERMINES  IF  THIS 

*  WAS  A  180  DEGREE  TURN,  THEN  GO  TO  WAIT  FOR  NEXT  DATA  POINT 
♦IF  THE  SAME,  PLACE  IN  DIRECTION  SEQUENCE 

* 

♦♦♦♦ANGLE  SECTION-END**** 

* 

♦UPDATE  THE  DATA  POINT  COUNTER 
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*IF  ALL  DATA  POINTS  IN  THE  INPUT  BUFFER  HAVE  NOT  BEEN  EXAMINED,  GO  TO 

*  MIDSTROKE  NEW  DATA  POINT  ENTRY 
♦OTHERWISE  WAIT  FOR  NEXT  DATA  POINT  GROUP 

* 

♦♦♦♦WAIT  FOR  NEXT  DATA  POINT  GROUP**** 

♦ 

♦(WAITING  FOR  A  DATA  POINT  GROUP  DOES  NOT  TIE  UP  THE  CPU) 

♦WHEN  NEW  DATA  POINT  GROUP  ARRIVES,  THEN 

♦IF  HALT  DESIRED,  GO  TO  FINISH  ENTRY  3 

♦SET  UP  INK-VECTOR  SIZE  AND  THINNING  DISTANCE 

♦NEGATE  REC  REQUEST,  2  CHARACTERS,  AND  PEN-UP-DELAY  INDICATORS 
♦GO  TO  NEW  OATA  POINT  ENTRY 
* 

♦  ♦♦♦PEN  UP  SIGNAL  ENTRY**** 

* 

♦NEGATE  NOT  FIRST  PENCGWN  INDICATOR 

♦IF  STROKE  IS  A  DOT,  'DOT*  CHECKS  FOR  POSSIBLE  SCRIPT  I  OR  J 

♦  IF  YES,  GO  TO  MULTI-STROKES  ENTRY 

♦IF  THIS  IS  THE  ONLY  STROKE,  GO  TO  MULTI-STROKES  ENTRY 

♦IF  THE  PREVIOUS  SUBCHARACTER  CANNOT  BE  COMBINED  WITH  ANY  STROKE,  GO  TO 

♦  THE  MULTI-STROKES  ENTRY 

♦  •ANG4*  AND  •  CHECK  *  DETERMINE  IF  THE  PREVIOUS  SUBCHARACTER  CAN  8E 

♦  COMBINED  WITH  THIS  STROKE 

♦  IF  NOT,  GO  TO  THE  MULTI-CHARACTERS  ENTRY 

♦IF  CURRENT  STROKE  IS  A  COMMA,  GO  TO  MULTI-CHARACTERS  ENTRY 

♦IF  CURRENT  STROKE  AND  PREVIOUS  SUBCHARACTER  ARE  NOT  GEOMETRICALLY 

♦  CLOSE  ENOUGH  TO  BE  COMBINED  AS  A  CHARACTER,  GO  TO  MULTI-CHARACTERS 

♦  ENTRY.  (IF  IT  IS  NOT  DESIRED  TO  SEPARATE  CHARACTERS  BASED  ON  THEIR 

♦  POSITIONS,  REPLACE  'PTEST  LA  R7,i  WITH  *PTEST  EQU  **  AND  DELETE  ALL 

♦  THE  FOLLOWING  CODE  UP  TO,  BUT  NOT  INCLUDING,  THE  LINE  LABELLED 

♦  *  C  A  S  E 1  *  )• 

♦ 

♦  ♦♦♦MULTI-STROKES  ENTRY**** 

♦ 

* ' MXMNC *  UPDATES  CHARACTER  BOUNDS 
♦ 

♦♦♦♦NEW  CHARACTER  PARAMETERS  ENTRY**** 

* 

♦SET  FIRST  CHARACTERS  INK  COUNT  TO  TOTAL  INK  COUNT 
♦•DELTAS'  QUANTIZES  STARTING  PT.  AND  ENDING  PT.  LOCATIONS 
**  QMM'  QUANTIZES  RELATIVE  Y  MAX  AND  Y  MIN  LOCATIONS 

**  ANG4*  TRANSLATES  FIRST  4  DIRECTIONS  TO  A  1-BYTE  CODE  CORRESPONDING  TO 
*  A  SET  OF  CHARACTERS 

**  FN56*  TRANSLATES  DIRECTIONS  5  AND  6  TO  A  4-BIT  CODE 
♦COMPUTE  ASPECT  RATIO 

♦STORE  NO.  GEOM-CORNERS,  AND  NO.  TIME-CORNERS 
♦COMPUTE  CENTER 

♦IF  NO.  OF  STROKES  IS  NOT  2,  SKIP  AROUND  TESTS  FOR  SCRIPT  I  AND  J 
♦IF  PREV.  SUBCHARACTER  IS  SCRIPT  I,  GO  TO  REC  EXIT 
♦IF  PREV.  SUBCHARACTER  IS  SCRIPT  J,  'RAZE'  INCREASES  Y  CENTER 
♦IF  NO.  DIRECTIONS  GTR  15,  CHAR  IS  SCRUB,  GO  TO  REC  EXIT 
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*  I F  NO.  DIRECTIONS  NOT  GTR  8  GO  TO  REC  CALL 

♦IF  NO.  DIRECTIONS  GTR  12,  OR  CHARACTER  IS  LARGE,  SET  CHAR=SCRU8,  GC  TO 

*  REC  EXIT 

v  * 

♦♦♦♦REC  CALL**** 

* 

♦CALL  REC,  THEN  GC  TO  REC  EXIT 
* 

♦♦♦♦MULT I-CHARACTERS  ENTRY**** 

* 

♦IF  FIRST  CHARACTER  INK  COUNT=TOTAL  INK  COUNT,  I.E.  IF  THERE  IS  ONLY  l 

*  CHARACTER  PENDING,  C-G  TO  RESTORE  INK  COUNT  ENTRY 

♦SET  INK  COUNT  TO  INK  COUNT  LESS  FIRST  CHARACTER  INK  COUNT,  I.E.  TO  2ND 

*  CHARACTER  INK  COUNT 

♦ZERO  (SET  TO  2)  DISPLAYED  INK  COUNT,  AND  SAVE  PREVIOUS  DISPLAYED  INK 

*  COUNT. 

♦MOVE  2ND  CHARACTER  INK  TO  THE  HEAD  OF  THE  INK  BUFFER. 

♦IF  NO  TRACK  DESIRED,  GC  TO  ZERO  INK  COUNT  ENTRY 

*  CHARACTER  INK  COUNT,  I.E.  TO  2N0  CHARACTER  INK  COUNT. 

* 

♦♦♦♦ZERO  INK  COUNT  ENTRY**** 

* 

♦SET  TOTAL  INK  COUNT  TO  ZERO 
* 

****CCN • T  RESTORE  ENTRY**** 

* 

♦SET  REC  REQUEST  ANO  2  CHARACTERS  INDICATORS 
* 

♦***2  CHARACTERS  ENTRY**** 

* 

*  I F  NO  RECOGNITION  IS  DESIRED,  GO  TO  WAIT  FOR  NEXT  DATA  POINT  GROUP. 

♦IF  CHARACTER  IS  NOT  RECOGNIZABLE,  GO  TO  NO  CHARACTER  ENTRY 

*  I F  REC  HAS  NOT  BEEN  REGUESTED,  GO  TO  TERMINAL  CHARACTER  ENTRY 

*  I  NT  I  ATE  PARALLEL  PROCESS.  HIGH  PRIORITY  TAKES  CHARACTER  EXIT.  LOW 

*  PRIORITY  GOES  TO  RESET  FOR  NEW  CHARACTER  ENTRY 

* 

♦♦♦♦RESET  FOR  NEW  CHARACTER  ENTRY**** 

♦ 

♦RESET  CHAR  SIZE,  STARTING  AND  ENDING  POINT  LOCATIONS,  CENTER,  ETC. 

♦GO  TO  NEW  CHARACTER  PARAMETERS  ENTRY 
♦ 

****REC  EXIT**** 

♦ 

♦IF  NO.  DIRECTIONS  GTR  8,  AND  CHARACTER  IS  NOT  SCRIPT,  SET  CHAR=$CRUB 
♦NEGATE  REC  REQUEST  AND  2  CHARACTERS  INDICATORS 
♦SET  T IME/DATA  EXPIRATION  INDEX  TO  TIME 

♦IF  OESIRED  INK-VECTOR  SIZE  IS  8  RASTERS,  GC  TO  CLOCK  EXPIRED  ENTRY 
♦SET  CLOCK  HAS  BEEN  CALLED  INDICATOR 

♦CALL  CLOCK, THEN  GO  TO  CLOCK  TURNED  OFF  OR  CLOCK  EXPIRED 
♦ 

♦♦♦♦CLOCK  EXPIRED  (DUE  TO  RUNNING  LONGER  THAN  ’TIME' )  ENTRY**** 
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♦ 

♦TURN  OFF  CLOCK  (SET) 

♦PAUSE,  THEN  GO  TO  CLOCK  TURNED  OFF  ENTRY 

♦ 

♦♦♦♦CLOCK  TURNED  OFF  (DUE  TO  PENDOWN)  ENTRY**** 

* 

♦IF  HALT  DESIRED,  GO  TO  FINISH  ENTRY  3 
♦NEGATE  CLOCK  CALLED  INDICATOR 

♦IF  TAKE  FINISH  EXIT  INDICATOR  IS  SET,  GO  TO  FINISH  ENTRY  2 
♦GO  TO  SET  UP  OUTPUTS  ENTRY,  THEN  RETURN  HERE 
♦IF  2  CHARACTERS  INDICATOR  IS  SET,  GO  TO  2  CHARACTERS  ENTRY 
♦IF  TIME/CATA  EXPIRATION  INOEX  IS  SET  TO  DATA,  GO  TO  NEW  DATA  PT.  ENTRY 
♦RESET  ALL  INTERNAL  INDICATORS 
♦GO  TO  2  CHARACTERS  ENTRY 
* 

♦♦♦♦FINISH  ENTRY  I**** 

* 

♦IF  CLOCK  HAS  BEEN  CALLED,  GO  TO  FINISH  ENTRY  2 
♦SET  TAKE  FINISH  EXIT  INDICATOR 
♦GO  TO  CLOCK  EXPIRED  ENTRY 
* 

♦  ♦♦♦SET  UP  OUTPUTS  ENTRY**** 

* 

♦MOVE  APPROPRIATE  INTERNAL  VALUES  TO  OUTPUTS 
♦RETURN 
* 

♦♦♦♦NO  CHARACTER  ENTRY**** 

♦ 

♦IF  REC  HAS  NOT  BEEN  REQUESTED,  GO  TO  TERMINAL  NO  CHAR  ENTRY 
♦INITIATE  PARALLEL  PROCESS.  HIGH  PRIORITY  TAKES  NO  CHAR  EXIT.  LOW 

*  PRIORITY  GOES  TO  RESET  FOR  NEW  CHARACTER  ENTRY 

* 

♦♦♦♦FINISH  ENTRY  2**** 

* 

♦GO  TO  SET  UP  OUTPUTS  ENTRY,  THEN  RETURN  HERE 
♦ 

♦♦♦♦FINISH  ENTRY  3**** 

* 

♦GO  TO  SET  UP  INK  ENTRY,  THEN  RETURN  HERE 
♦TAKE  HALT  EXIT 
* 

♦♦♦♦TERMINAL  CHARACTER  ENTRY**** 

* 

♦GO  TO  SET  UP  INK  ENTRY,  THEN  RETURN  HERE 
♦TAKE  TERMINAL  CHARACTER  EXIT 
* 

♦♦♦♦TERMINAL  no  CHAR  ENTRY**** 

♦ 

♦GO  TO  SET  UP  INK  ENTRY,  THEN  RETURN  HERE 
♦TAKE  TERMINAL  NO  CHAR  EXIT 
♦ 
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****SET  UP  INK  ENTRY**** 

* 

*IF  DESIRED  I NK-VECTCR  SIZE  IS 
♦ZERO  (SET  TO  2)  DISPLAYED  INK 
♦RETURN 

* 

****END  OF  CHAREC**** 


8  RASTERS,  RETURN 
COUNT 


CHAREC  Program  Listing 


USING 

XR1,R1 

USING 

XR3,R3 

USING 

SVCS 

REGS 

XR4 , R4 

CD  I 

DSECT 

XR1 

DS 

3F 

AREC 

DS 

IF 

CLK 1 

DS 

IF 

DATA 

DS 

IF 

WAITBX 

DS 

IF 

INDEX 

DS 

IF 

TIME/DATA  EXPIRATION 

FINX 

EQU 

0 

NCHARX 

ECU 

4 

CHARX 

EQU 

8 

XTN 

EQU 

12 

TERMINAL  NO  CHAR  EXIT 

XT  C 

EQU 

16 

TERMINAL  CHAR  EXIT 

CD4 

DSECT 

XR4 

CS 

OF 

ICP 

DS 

IF 

A (  I NK  CCW) 

MCH 

CS 

IF 

A ( MATCH  DATA) 

KEYB 

ECU 

MCH 

A ( KEYBOARD  DATA) 

PENU 

EQU 

MCH 

A ( PEN  UP  DATA) 

INPB 

DS 

IF 

A ( INPUT  BUFFER) 

INKB 

OS 

IF 

A ( INK  BUFFER) 

INPL 

CS 

IH 

INPUT  BUFFER  LENGTH 

INKL 

CS 

1H 

INK  BUFFER  LENGTH 

EP 

DS 

2F 

END  POINTS 

CET 

DS 

IF 

CENTER 

SIZE 

CS 

IF 

ACTUAL  CHARACTER  SIZE 

INO 

CS 

1C 

INDICATORS 

CHARA 

DS 

1C 

CHARACTER 

AR 

DS 

1H 

#  CORNERS,  ASPECT  RAT 

BOX 

CS 

IF  • 

MAX  CHARACTER  SIZE 

DD3 

DSECT 

XR  3 

DS 

OF 

II 

DS 

IF 

PAD 

DS 

IF 

CODE 

CS 

IF 

XS 

CS 

1H 

YS 

CS 

1H 

XT 

CS 

IH 
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YT 

CS 

1H 

OX 

OS 

1H 

DY 

CS 

1H 

MDX 

CS 

LH 

MOY 

CS 

IH 

PANG 

CS 

IH 

PACANG 

CS 

LH 

N 

CS 

IH 

SN 

OS 

IH 

PUP 

CS 

IH 

INKIND 

CS 

LH 

PCUAC 

CS 

IH 

BR56 

CS 

LH 

DXC 

CS 

LH 

DYC 

CS 

IH 

XRC 

OS 

IH 

XLC 

CS 

LH 

YTC 

OS 

IH 

YBC 

DS 

LH 

ASPR 

CS 

LH 

NT 

DS 

LH 

NIC 

DS 

LH 

I NKC 

DS 

LH 

XYE 

CS 

IOC 

XYS 

CS 

IOC 

V»  I DTH 

DS 

LH 

HEIGHT 

CS 

LH 

DS 

2F 

YCENT 

DS 

LH 

PCHAR 

CS 

LC 

CUSP 

DS 

LC 

NCUSP 

DS 

LH 

NPTS 

DS 

LH 

CEL 

DS 

LH 

P 

CS 

LC 

CHAR 

DS 

LC 

TEMP 

CS 

LC 

TINK 

CS 

5C 

XSP 

DS 

LOC 

YSP 

CS 

IOC 

XEP 

CS 

LOC 

YEP 

CS 

LOC 

ALXYJ 

CS 

8C 

XL 

DS 

LH 

YL 

OS 

LH 

XLO 

DS 

LH 

YLC 

CS 

LH 

AX3 

DS 

LH 

AX2 

DS 

LH 

AX  1 

CS 

LH 

AX 

CS 

LH 
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AX23 

CS 

1H 

AX  12 

CS 

1H 

AX  01 

OS 

IH 

AX02 

CS 

1H 

NC 

CS 

IH 

C 

CS 

1H 

CYM 

CS 

IH 

DXS 

DS 

IH 

CYS 

CS 

IH 

XRS 

DS 

IH 

XLS 

DS 

IH 

YTS 

CS 

IH 

YBS 

CS 

IH 

CENT 

DS 

IF 

HVC 

CS 

6C 

TTURN 

DS 

IH 

TURN 

CS 

IF 

XC 

DS 

ICC 

YC 

DS 

IOC 

DO 

OS 

IH 

Cl 

DS 

IH 

D2 

CS 

IH 

D3 

CS 

IH 

DA 

DS 

IH 

D5 

CS 

IH 

C6 

CS 

IH 

D7 

DS 

IH 

C8 

DS 

IH 

09 

CS 

IH 

DIO 

DS 

IH 

Dll 

DS 

IH 

D12 

DS 

IH 

D13 

DS 

IH 

D 1 A 

DS 

IH 

C 1 5 

DS 

IH 

CN 

CS 

IH 

NTCUSP 

DS 

IH 

PNPTS 

DS 

IH 

PYMAX 

CS 

IH 

PYMIN 

DS 

IH 

NYMAX 

DS 

IH 

NYNIN 

DS 

IH 

YMAX 

DS 

10H 

YMIN 

EQU 

YMAX+IC 

CYMAX 

CS 

IOC 

CYMIN 

EQU 

QYMAX+5 

PYMXX 

DS 

IH 

PYMNX 

DS 

IH 

YMAXX 

DS 

10H 

YMINX 

ECU 

YMAXX+10 

CHAREC 

PROCS 

CLEAR=5,CNTX»9, AUTQ=86,PRCLG*XCHRX* ID-900002  IF 
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TINE 

DC 

F*  03CC * 

LXYJ 

DC 

X*  54006000* 

CDOT 

DC 

X*  80* 

HEX  10 

CC 

F*  16' 

HEX9Q 

DC 

F*  144* 

HOVER 

MVC 

0 ( C , R6 ) , 0 ( R7 ) 

ANG56 

DC 

V  (  FN  56  ) 

ANG4A 

DC 

V  (  ANG4 ) 

DELT 

DC 

V ( DELTAS ) 

RECA 

DC 

V(REC) 

DC 

X*  80CCC21C * 

SMTH 

CC 

V( SMOOTH) 

THINN 

CC 

V( THIN) 

NAXMNS 

DC 

V(MXMNS) 

HYSTR 

CC 

V(HYST) 

CLK2 

DC 

V ( CLOCK ) 

DC 

X*  8CCCCCC0* 

MAXMNC 

CC 

V  ( MXMNC ) 

TRAVC 

CC 

V(TRAVEC) 

CORNR 

DC 

V ( CORNER ) 

TURNA 

CC 

V ( TURNER ) 

CHECKA 

DC 

V ( CHECK ) 

RELMA 

CC 

V(RELM) 

CNN  A 

CC 

V(GMM) 

COTA 

DC 

V ( DOT ) 

TCRNRA 

DC 

V(TCRNR) 

RAZE  A 

CC 

V ( RAZE ) 

XCHRX 

* 

PROLG 

* 

****START**** 

* 

♦ 

CLEAR 

PSG=WA I TBX»CN 

MV  I 

AL  XY J  »  X  *  CC  * 

MV  I 

ALXYJ+5,X'40* 

MV  I 

ALXY J  +  6 ♦ X  *  OC ' 

MVC 

MVC(6), MOVER 

BAL 

R15, TCP 

B 

WAITZ 

* 

* 


****NEW  CHARACTER  ENTRY**** 

* 

* 

TCP  XC  11(4), II 

XC  PAO ( 4 ) ,  PAD 

XC  SN(2),SN 

XC  INKINOm,  INKIND 
XC  INKC ( 2 ) , INKC 

XC  PUP ( 2 ) , PUP 


#  STROKES 
INK  INDEX 
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XC  XRC I 2 ) »  XRC 

XC  YTC<2) »YTC 

XC  CHAR ( I ) f CHAR 

XC  P(1),P 

XC  TTURN I 2 ) , TTURN 

XC  DO { 32  )  , DC 

XC  DN ( 2  )  »  CN 

LA  R6 , 1 024 

SLL  R6  »  2 

STH  R6  »  XLC 

STH  R6,YBC 

L  R4,DATA 

L  R7*CET 

STH  R7»YCENT 

L  R4,DATA 

MVC  PCHAR ( 1 ) , CHARA 

L  R4»  DATA 

L  R  7  »  BOX 

LR  R8  »R  7 

STH  R8»  HE IGHT 

SRL  R8  » 16 

STH  R8, WIDTH 

LR  R8,R7 

SRL  R8*l 

AR  R7  »R  8 

STH  R  7  »  D YM 

BR  R15 

* 

* 


♦♦♦♦new 

DATA 

POINT**** 

♦ 

♦ 

WAITZ 

L 

R4.DATA 

TM 

IND, X* 10* 

BC 

1 ,  F  IN 

TM 

IND,X*20» 

BC 

1  *  IND2 

LH 

R12,  INKIND 

TM 

PUP+1,X*01* 

BC 

it  PENDWN 

* 


♦♦♦♦NEW  stroke**** 
* 

♦ 


LH 

R6,SN 

LA 

R8*  5 

CR 

R6,R8 

BC 

4, SNLSS5 

SR 

R  6  *  R  6 

LR 

R8,R6 

STORE  PREV  CENT  Y  IN  YCENT 

STORE  PREV  CHAR  IN  PCHAR 
STORE  MAX  ALLOW  DY  IN  DYM 


l  1/2  CHARACTER  HEIGHT 


ENTRY  FROM  WAIT  BOX 

B  TO  FIN  IF  HALT 

8  TO  IND2  IF  P.U. 

R 12* INK  BUFF  IND 


#  STROKES  OVERFLOW  TEST 


SNLSS5 


R8,l 

R6t 1 ( R6  ) 
R6,SN 
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SLL 

LA 

STH 

♦INITIALIZATION 

XC 

LA 

STH 

STH 

MVC 

XC 

XC 

XC 

xc 

LA 

STH 

XC 

XC 

xc 

xc 

MV  I 
MV  I 
LA 
STH 
STH 
STH 
XC 
XC 
LA 
SLL 
STH 
STH 
01 
L 
L 

LH 

STH 

STH 

STH 

STH 

STH 

STH 

LH 

STH 

STH 

STH 

STH 

STH 

STH 


NC ( 4 ) »  NC 
R6,16 
R6  «  AX  1 
R  6  »  A  X 

AX3 ( 4 ) y  AX 1 
NTCUSP(2)tNTCUSP 
NPTS  ( 2 ) »NPTS 
NT { 2 ) *  NT 
NTC ( 2 ) *NTC 
R7,2C 
R  7 1 PNPTS 
NYMAX ( 2 ) »NYMAX 
NYM I N ( 2 ) *  NYM  I N 
N  (  2  )  *  N 
C(2)  ,C 
QYMAX*  X*  0  1 ' 

GYM  I N  *  X • Cl  * 

R6,4 
R6,PANG 
R6  t P ACANG 
R6  »  PCUAD 
XRS ( 2 ) *  XRS 
YTS ( 2 ) » Y  TS 
R6  »  1C24 
R6  *2 
R6.XLS 
R6  ♦  YBS 
PUP  +  L, X*  Cl* 
R4,DATA 
R10t INPB 
R7,0(R1C) 

R7»XS 

R7,XT 

R7,XSP(R8I 
R7 » XL 
R7  »PYMXX 
R 7»  P YMNX 
R7 1 2 ( R 1C  ) 

R7f  YS 
R  7  »  Y  T 

R7*YSP(R8) 

R7,YL 
R7  tPYMAX 
R  7»  P YM I N 


LA  R13»4 


B  REBUFF 


L  R4»  DATA 


INITIALIZATION 


H  TIME  CORNERS 
t  PTS  BET.  THIN  PTS 


PREV  NPTS 
»  REL  MAX 

#  REL  MIN 

#  ANGLES 
CORNER  INOEX 


PREV  ANG  —4 
PREV  ACC  ANG  =4 
PREV  QUADRANT  *4 


1ST  XRAW 
1ST  SMOOTH  X 
1ST  X  THIN 
X  STARTING  POINT 

X  OF  POT.  YMAX 
X  CF  POT  YMIN 
1ST  Y  RAW 
1ST  Y  SMOOTH 
1ST  Y  THIN 
Y  STARTING  POINT 

POTENTIAL  Y  MAX 
POTENTIAL  Y  MIN 


CLNBUF 
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l  R7» ICP 

LA  R8«2 

STH  R8,6<R7) 

REBUFF  L  R4  »D AT  A 

LH  R15t  INKL 

LA  R6»  7  J  R 12 ) 

CR  R6,R15 

.  8C  4, INKLOK 

SR  R 12t  R 12 

B  CLNBUF 

INKLGK  LH  R6,XL 

SRL  R6  *  2 

LH  R7» YL 

SRL  R7»2 

SLL  R6  »  1 6 

CR  R  6  *  R  7 

C  R6tLXY J 

ST  R6  »  T  EMP 

HVC  ALXYJ+1(4),TEHP 

L  R4»OATA  SET  VECTOR  SIZE 

IC  R 15» INC 

LA  R 14 ♦ 12 

NR  R15,R14 

LA  R14»  64 

LR  R6 1 R 15  SET  DEL ♦  WIN  THIN  DIFF 

LA  R6,4(R6) 

SLL  R6  *  1 

STH  R6,DEL 

CR  R 1 5  »  R 1 4 

STC  R15*  ALXYJ+5 

L  R 15f  INKS 

LA  R15*C(R12*R15) 

HVC  0(7,R15),ALXYJ 

SR  R6,R6 

STC  R6*7 ( R 15  ) 

L  R4.DATA 

♦TEST  FOR  NO  INKING 

TM  INC»  X*  80* 

BC  8, ENTER! 

L  R7 1 I  CP 

LH  R 15 »  6 ( R  7 ) 

LA  R15*6(R15) 

LA  R12,6(R12) 

LA  R6*  2 ( R 12 ) 

CR  R 15  »  R6 

BC  2  *  R 1 5GTR 

LA  R15t 1 (R15) 

R15GTR  STH  R15»6(R7) 

B  ENTER 


* 

♦ 
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♦♦♦♦MIDSTRCKE  NEW  DATA  POINT***« 
* 

* 


PENCWN 

SR 

R13,R13 

ENTER 

SR 

R6»R6 

SMOOTH  TRACK 

CR 

R 12, R6 

8C 

8  » CLN8LF 

ENTER  1 

L 

R4,DATA 

L 

RIO, I NPB 

LH 

R6,0IR13,R1C) 

STH 

R6,XS 

LA 

R13,2<R13) 

LH 

R6,OIR13,R10) 

STH 

R6,YS 

LH 

R8»NPTS 

LA 

R8,l(C,R8) 

STH 

R8,NPTS 

LH 

R7,YT 

Y  THIN  THIN  TRACK 

LH 

R8»DEL 

MIN  THIN  DIFF 

RCS 

TH INN ♦ E*+4 

CH 

R7.YT 

BC 

8»  YSMALL 

B 

OK 

YSMALL 

LH 

R6»XS 

X  SMOOTH 

LH 

R7»  XT 

X  THIN 

LH 

R8*DEL 

•  MIN  THIN  DIFF 

RCS 

TH INN ,  E*+4 

CH 

R7.XT 

BC 

8, SMALL 

♦HERE  IF 

NEW 

POINT  ACCEPTED  IN  THIN 

TRACK 

GK 

ECU 

* 

RCS 

TCRNRA, III, E*+4 

LH 

R 1 1 , YS 

LH 

R 10*  YT 

STH 

R1 1 »  YT 

SR 

R 1 1  *  R 1C 

STH 

R 1 1  *  DY 

ST  DELTA  Y 

LPR 

RlltRll 

STH 

Ril, MDY 

ST  MAGIDELTA  Y) 

LH 

R 1 1  *  XS 

LH 

R7  *  XT 

STH 

RLlf XT 

SR 

R1 1, R7 

STH 

Ril, OX 

ST  DELTA  X 

LPR 

R 1 1  *  R 1 1 

STH 

Ril* MDX 

ST  MAGIDELTA  X) 

NUINK 

LH 

R7  *  X  T 

STORE  NEW  INK 

LH 

R9*  YT 

LH 

RIO, XL 

LH 

R l 1 , YL 

STH 

RIO, XLO 
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STH  R11,YLC 

L  R4,DATA 

L  R15* INC 

SRL  R 15*  26 

LA  R14,3 

NR  R 15*  R14 

LA  R 1 5  * l ( R 1 5 ) 

RCS  TRAVC  t  E*+4 

C  R0»HEX1G 

8C  8* INKST 

LR  R8,RC  INCREMENT  CNT  FOR  THIS  DIRECTION 

SLL  R  8  »  1 

LH  R7  *  DO ( R  8 ) 

LA  R7,1(R7) 

STH  R7»DC ( R8 ) 

LH  R7,  DN  INCREMENT  TOTAL  COUNT 

LA  R7* 1 ( R7  ) 

STH  R7,DN 

STH  RO*AX 

STH  R 10*  XL 

STH  R 1 1  *  YL 

L  R4, DATA 

LH  R 15* INKL 

BCT  R15,A1 

A 1  L  R4.DATA  TEST  FOR  NO  INKING 

TM  INC*  X *  80  * 

BC  1, STOINK 

L  R4,DATA 

L  R7* I  CP 

LA  R8»2 

STH  R8, 6 (R7 ) 

SR  R12*  R 12  CLEAR  INK  CGUNT 

B  NOSTO 

STOINK  ECU  * 

L  R4*DATA 

L  R7, ICP 

LH  R8,6(R7) 

LA  R8* 1 ( R8  ) 

STH  R8»6(R7) 

L  R4*  DATA 

0  RO  *  HEX9C 

L  R6.INKE 

STC  R0*0(R12,R6) 

SRL  RO*  8 

LA  R12,1(R12I 

STC  RO  *  1 ( R6  *  R 12 ) 

NCSTC  ECU  * 

♦GEOMETRIC  CORNER  DETECTOR 
LH  R  7*  AX 

SH  R7*  AX  1 

LPR  R7.R7 
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STH 

R7»  AXC1 

CLI 

AX3+ 1 »  X  • 10* 

BC 

8,  SHIFT 

PCS 

CORNR  » 1 1 1 »  E*+4 

SHIFT 

MVC 

AX3 ( 12) ,AX2 

CR 

R  L2»  R 15 

8C 

4»NUINK 

SR 

R12.R12 

♦UPDATE 

STROKE 

BOX  SIZE  AND  LOCATION 

INKST 

RCS 

MAXMNS»IIl»E*+4 

♦UPDATE 

RELATIVE  MAX  AND  MINS 

* 

RCS 

RELMA, I I 1 , E*+4 

* 

♦♦♦♦ANGLE  SECT 

ION  STAR T ♦♦♦♦ 

* 


* 

* 


♦  DETERMINE 

A 

CUADRANT 

LH 

R6,DX 

MEASURE  ANGLE=ANG 

LTR 

R6*R6 

BC 

4,DXNEG 

LH 

R6  ,  DY 

DX  POS,  TEST  SIGN  DY 

LTR 

R6,R6 

BC 

4, DYNEG 

♦DX,DY 

POS,  QUAD=0 

• 

SR 

R6,R6 

B 

GTEST 

♦DX  POS 

,  DY  NEG,  CU AD=3 

DYNEG 

LA 

R6 , 3 

B 

GTEST 

CXNEG 

LH 

R6,DY 

DX  NEG,  TEST  SIGN  OF  DY 

LTR 

R6,R6 

BC 

4, DYNEGG 

LA 

R6,l 

B 

QTEST 

DYNEGG 

LA 

R6,2 

DX,  DY  NEG,  CUA0=2 

£ 

8 

GTEST 

*  DETERMINE 

DIRECTION 

♦  AND 

* 

CHECK 

FOR  2  EQUAL 

SUCCESSIVE  ANGLES 

QTEST 

CH 

R6  »  PQUAO 

BC 

8 , CEGPC 

B  IF  CUAO=PREVC 

STH 

R6 , PQUAO 

SET  PCUAD=GUAD 

LH 

R6, MDX 

CH 

R6,MDY 

BC 

4 , ODCANG 

B  IF  MOX  LESS  THAN  MDY 

EVANG 

LH 

R6,DX 

ANG  EVEN,  TEST  SIGN(DX) 

LTR 

R6,R6 
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BC 

4.ANG2 

SR 

R6.R6 

B 

PRVANG 

ANG2 

LA 

R6,2 

B 

PRVANG 

ODDANG 

LH 

R6 « DY 

LTR 

R6,R6 

BC 

4  *  ANG3 

LA 

R6.1 

B 

PRVANG 

ANG3 

LA 

R6,3 

B 

PRVANG 

QEQPC 

STH 

R6 » PQU AD 

LH 

R6  *  P  ANG 

LA 

R7  *  I 

NR 

R6.R7 

BC 

8  »  EVPANG 

♦  PREV 

ANGLE  1 

□  CD 

LH 

R6  *  MDX 

LH 

R7.MDY 

RCS 

HYSTR  *  E*+4 

BC 

2  .EVANG 

B 

PRVTST 

EVP ANG 

LH 

R6.MDY 

LH 

R7.MDX 

RCS 

HYSTR*  E*+4 

BC 

2, ODDANG 

B 

PRVTST 

PRVANG 

CH 

R6*  PANG 

BC 

8, PRVTST 

LR 

R9.R6 

RCS 

TURNA  » 1 1 1 *  E*  +  4 

LR 

R6,R9 

STH 

R6  *  PANG 

B 

SMALL 

PRVTST 

ECU 

* 

LH 

R6.PANG 

CH 

R6* PACANG 

BC 

8, SMALL 

STH 

R6, PACANG 

♦#  ANGLES  OVERFLOW  TEST 

LH 

R7,N 

LA 

R8.15 

CR 

R7.R8 

BC 

4, NLOW 

MVI 

CHAR  *  X ' 72 * 

SR 

R7,R7 

NLOW 

L 

RIO*  CODE 

LH 

R9.TTURN 

L 

R1 1*  TURN 

LA 

R8, 16 

DX  PCS*  ANG=0  RIGHT 
DX  NEG,  ANG=2  LEFT 
ANG  COO.  TEST  SIGN(DY) 

OY  NEG*  ANG-3  DOWN 
QUAD=PREV  QUAD,  HYSTERESIS 

AND  PANG  WITH  1 
8  IF  PREV  ANG  EVEN 

B  IF  3/4  MDX  GTR  MDY 
PREV  ANGLE  EVEN 

B  IF  3/4  HOY  GTR  MDX 

DOES  ANG=PREV  ANG 
8  IF  ANG=PANG 

SET  PANG=ANG 

ANG=PRE VANG 

#  CF  ANGLES 

N  LESS  THAN  15 
CHAR  IS  A  SCRUB 
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SR  R8,R7 

SHFT  SRL  RIO, 2 

SRL  R1 1, 2 

8CT  R8 , SHFT 

SLL  R 1C,  2 

SLL  R 1 1 , 2 

LH  R6, PANG 

GR  RIO, R6 

CR  R1L,R9 

LA  R8, 15 

SR  R8,R7 

SHFT 1  SLL  RIO, 2 

SLL  R 1 1 , 2 

BCT  R8, SHFT 1 

ST  R 10 , CCCE 

ST  R 1 1 , TURN 

MV  I  TTURN+ 1 , X  *  00 ' 

LA  R7, 1 (R7  ) 

STH  R 7, N  INC  N 

B  SMALL 

♦ 

* 

♦♦♦♦angle  section  end**** 

♦ 

* 

SMALL  LA  R 13, 2 ( C,R13 )  HERE  PROCESSING  OF  NEW  RAW  CCMP 

L  R4, DATA 

LH  RIO,  INPL 

CR  R13, R  10 

BC  4, ENTER  GET  NEXT  POINT 

STH  R12, INKIND  KEEP  INK  BUFF  IND 

* 

* 

♦♦♦♦WAIT  FOR  NEXT  DATA  POINT  GROUP**** 

* 

* 

WATR1  WATE  PSG=WA ITBX,CNTX=F 
L  R4,DATA 

TM  I ND, X  *  10 ' 

BC  1,G0FINX 

L  R6, INKS 

IC  R15, INC 

LA  R 14, X  *  CC * 

NR  R l 5, R 14 

LA  R 14, 64 

OR  R 14, R 15 

STC  R14,5(R6) 

LA  R15,4(R15) 

SLL  R 15,  1 

STH  R 15, CEL 

N I  PUP+ 1 , X • C7* 


NOFIN 
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B  WAITZ 

♦ 

* 

♦♦♦♦PEN  UP  SIGNAL**** 

♦ 

* 

IND2  N I  PUP+ 1 , X  *  FE  *  HERE  CN  PU  TRAP 

LH  R7»  DN  TEST  FOR  INK 

LTR  R7,R7 

BC  8, NO SANG  NO  INK 

CLI  N  +  I »  X ' CO  *  TEST  FOR  PERIOD 

BC  6*PTEST  NOT  PERIOD 

♦TEST  FOR  SINGLE  ANGLE 
LA  R  7 » 4 

CH  R7,PANG 

BC  8»NOSANG 

LA  R7,l 

STH  R  7  ,  N 

LH  RIO, PANG 

LH  R 1 1, PANG 

LA  R8 , 3 

SHFT2  SLL  RIO, 2 

AR  RIO, R1 1 

BCT  R8 , SHFT2 

SLL  RIO, 8 

ST  RIO, CODE 

BC  15,PTEST 

♦UPDATE  STROKE  SIZE  TO  PREPARE  FOR  CENTER,  ETC. 

NCSANG  LH  R6,XS 

STH  R6»  XLS 

STH  R6 , XRS 

LH  R6,YS 

STH  R6, YTS 

STH  R6, Y8S 

♦STROKE  IS  A  COT 

♦IS  THIS  THE  2ND  STROKE  OF  A  SCRIPT  I  OR  J 


CLI 

SNU,X»C2* 

BC 

6, PTEST 

RCS 

DOT  A , I 1 1 , ECASE1 

, EPTEST 

♦  MAKE 

POSITION 

DECISION  HERE, 

1ST  CHECK  FOR 

SINGLE  STROKE 

PTEST 

LA 

R7 , 1 

CH 

R  7,  SN 

BC 

10, CASE  I 

ONLY 

1  STROKE 

♦CAN  OLD  CHAR  BE  COMBINED  WITH  ANY  STROKE,  I.E.  IS  THERE  A  P  AND/OR  PAD 
L  R7 , P AD 

LTR  R7,R7 

BC  6,N0TDK 

CLI  P,X'CC* 

BC  8 , TOB  IG 

♦CAN  OLD  CHAR  BE  COMBINED  WITH  STROKE 
NCTCK  RCS  ANG4A, IIl,E*+4 
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RCS  CHECKA,I 1 1 , E TCB IG , ECGMBCK 

♦OLD  CHAR  CAN  BE  COMBINED  WITH  THIS  STROKE*  TEST  FOR  COMMA 
COMBCK  CL!  N+l, X*  Cl  * 

BC  6  »  COMOK 1  NOT  1  ANG 

TM  CODE  *  X  *  CO  * 

BC  8  *  COMOK l  RIGHT  HORIZ 
BC  4,C0M0K2  UP  OR  LEFT  HORIZ. 

LH  R 15  »  D YM 

SRL  R15*  2 

LH  R7»  YTS 

SH  R  7  ,  Y  B  S 

CR  R7»R  15 

8C  10 »COMCK 1  NOT  SHORT 

♦SHORT  VERTICAL,  IS  IT  AT  THE  BOTTOM 
LH  R7, YBS 

CH  R  7  »  Y  B  C 

BC  2 , COMOK 1  NO 

♦  YES,  COES  IT  SLANT  TO  THE  LEFT,  I.E.  IS  ENDPT  TO  LEFT  OF  ST  ART  PT 
LH  R8*  SN 

8CT  R8*  SLFT 

SLFT  SLL  R8  *  1 

LH  R7 , XSP ( R8  J 

CH  R7*XT 

BC  4, COMOK  1 

♦SPECIAL  TEST  FOR  T,  IS  THE  FIRST  STROKE  A  MINUS? 

CLI  P,X»C2« 

BC  8, COMOK l 

B  TOBIG 

♦TEST  FOR  HORIZ.  COMMA 
C0M0K2  TM  CQDE»X*  80* 

BC  8*C0MGK  1  UP 

♦LEFT  HORIZ.,  IS  IT  AT  THE  BOTTOM 
LH  R7, YBS 

CH  R7 , Y  BC 

BC  2, COMOK i  NO 

BC  12,T08IG  YES, COMMA 

♦STROKE  NOT  A  COMMA 
COMOK 1  LH  R7 , XRC 

CH  R7, XLS 

BC  4,CASE1C 

CH  R7, XRS 

BC  4, CASE1B 

LH  R7,XLC 

CH  R7 , XRS 

BC  4, CASE l 

CASE  1C  CLI  SN+ 1 , X  *  02  *  NO,  IS  OLD  CHAR  VERTICAL 

BC  6, TSTS2 

CLI  P,X»01» 

BC  8,CASE1A 

CLI  N+ 1 , X ' 0 l • 

8C  6, TOBIG 


TSTS2 


NO,  IS  NEW  STROKE  VERTICAL 
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TM 

CODE , X • CC* 

8C 

12,T0BIG 

CLI 

CHAR , X • CE ' 

YES, 

IS  OLD  CHR  A  PLUS 

8C 

8, CASEIE 

CLI 

CHAR »  X • 02  * 

NO, 

IS  IT  A  K 

BC 

8, CASEIE 

BC 

6, T08IG 

♦1ST  STROKE  IS 

A  VERTICAL,  IS  IT  A  I 

CASE 1A 

CLI 

CHAR , X ' F I ' 

BC 

8, CASE  18 

CLI 

CHAR , X ' E 1  * 

NO, 

IS  IT  A  SLASH 

BC 

8, CASE1B 

CLI 

CH AR , X • CO  * 

NO, 

IS  IT  A  R.  PAREN. 

BC 

8, CASE1B 

YES 

CLI 

CHAR , X ’CD  * 

NO, 

IS  IT  A  L.  PAREN. 

BC 

6, TOB  IG 

♦TEST 

FOR  SHORT  VERT  SECOND  STROKE 

CASE  IB 

CLI 

N+ 1, X*  Cl ' 

BC 

6, CASE1D 

NOT 

SINGLE  ANGLE 

TM 

CODE , X  *  CO* 

BC 

12 , CASE  1C 

NOT 

VERT 

CASEiE 

LH 

R 15, DYM 

2ND 

VERT,  IS  IT  SHORT 

SRL 

R15, 2 

LH 

R7,YTS 

SH 

R7, YBS 

CR 

R7,R15 

8C 

4, TOB  I G 

♦NO »  IS  DIFF  BETWEEN  CENTERS  GTR  R  RASTERS 
♦GET  HERE  WHEN 

♦FIRST  STROKE  VERT,  SECONO  NOT 

♦ANO  FIRST  STROKE  RIGHT  CLOSE  TO  SECOND  LEFT 


♦OR  BOTH 

STROKES  VERTICAL 

CASE  IF 

EQU 

♦ 

LH 

R15, WIDTH 

LR 

RIO, R  15 

SRL 

R  1C,  1 

AR 

R 1 5, R  1C 

R 

-3/4  WIDTH 

LH 

R7 , XRC 

AH 

R  7  ,  X  L  C 

2 

OLD  CENTER 

LH 

R8.XRS 

% 

AH 

R8 , XL  S 

2 

NEW  CENT 

LR 

R9,R8 

SR 

R8,R7 

LPR 

R8,R8 

CR 

R8*R15 

BC 

12,CASE1 

♦  YES,  IS  CIFF  GTR  RUR1  GTR  R)  RASTERS 


LH 

R 15, W ICTH 

SLL 

R 15,  1 

CR 

R8»R 15 

BC 

2, TOBIG 

R1  *  WIDTH 
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NEW 

NEW 


l/A  WIDTH 
REMAINDER 


♦IS  NEW  XCENT  IN  LEFTMOST  1/A  OF  A  GRID  PCS? 
LH  R15, WIDTH 
SRL  R15, 3 

SR  R8»R8 

SRL  R9,3 

DR  R8*R 15 

LR  R 10 »  R  15 

SRL  RIO, 2 

CR  R8.R10 

BC  A,CASE1 

♦IS  OLD  X  CENT  IN  RIGHTMOST 
SR  R6,R6 

SRL  R7 , 3 

DR  R6 , R 15 

SR  R 1 5 ♦ R  1C 

CR  R6»R  15 

LA  RIO, 11 

CR  R6,R 1C 

BC  2 , CASE  1 

BC  12 ,TG8  IG 

STROKE  IS  NOT  VERTICAL 


CHAR  WIDTH  IN  RASTERS 


XCENT 

XCENT 


1/A  OF  A  GRID  POS 


OLD 

OLD 


XCENT 

XCENT 


IN  RASTERS 
MCD(WIDTH) 


IN  R8 


IN  RASTERS 
MOD( WIDTH) 


3/A  WIDTH 


REMAINDER  IN  R6 


♦2ND 


♦IS  DIFF 
CASE  ID 


BETWEEN  2ND  STROKE  LEFT  AND  1ST  STROKE  RIGHT  GTR  R  RASTERS 


* 

* 

* 

* 

CASE  1 
♦ 


ECU 

* 

LH 

R15, WIDTH 

SRL 

R15,  2 

LR 

R10»R15 

SRL 

RIO,  1 

AR 

R15, R 1C 

LH 

R7,XLS 

SR 

R7»R15 

CH 

R7, XRC 

BC 

2»T08 IG 

BC 

12, CASE  IF 

-STRCKES**** 

RCS 

MAXMNC , I I 

3/8  WIDTH 


♦ 

♦♦♦♦NEW  CHARACTER  PARAMETERS**** 
* 

* 


REINK 

LH 

R7, INKIND 

STH 

R7, I NKC 

MCRCHR 

LH 

R8,SN 

BCT 

R8,REDR8 

REDR8 

SLL 

R8 , 1 

LH 

R6  ,  XT 

STH 

R6»  X  EP ( R8 ) 

ENDPOINTS 
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LH  R6,YT 
STH  R6,YEP(R8) 

RCS  DELT, I Il,E*+4 
♦QUANTIZE  REL  MAX  AND  MINS 

RCS  QMMA»I  I  1,E«*4 
♦SET  UP  Ii  AS  A  TRANSLATION  OF  CODE 


RCS 

ANG4A, I I l»£4+4 

CL  I 

1 1  +  3 , X ' EF  * 

BC 

6»  ANG56X 

EF 13 

MV  I 

II+3*X*13* 

ANG56X 

RCS 

ANG56  »II1»  £4+4 

LH 

R7, DXC 

LTR 

R7,R7 

BC 

8» ASPR3 

SR 

R8,R8 

LH 

R9,DYC 

SLL 

R9,2 

DR 

R8»R7 

LR 

R7,R9 

B 

ASPR2 

AS  PR  3 

LA 

R7,4095 

SLL 

R7»  4 

ASPR2 

STH 

R7,ASPR 

LH 

R8»NC 

NTC 1 

STH 

R8,NCUSP 

NTX 

EQU 

* 

♦NO.  OF 

TIME 

CORNERS 

LH 

R8,NT 

BCT 

R8,TNT1 

TNT1 

CH 

R8.NTC 

BC 

2, TNTX 

LH 

R8  »  NTCUSP 

BCT 

R8,TNTC1 

TNTC1 

STH 

R8, NTCUSP 

TNTX 

EQU 

* 

LH 

R7.YTC 

AH 

R7, YBC 

SRL 

R7,L 

LH 

R8 » XRC 

AH 

R8,XLC 

SRL 

R8«  I 

SLL 

R8, 16 

AR 

R7»R8 

ST 

R7»CENT 

♦TEST  FOR  SPECIAL  CHARACTERS 

CLI 

SN+ 1 »  X  *  02* 

BC 

6, TSTSC8 

CLI 

CHAR  »  X  *  89* 

BC 

8.RECRTN 

CLI 

CHAR, X* 91' 

BC 

6, TSTSCB 

#  CORNERS 


SCRIPT  I 
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♦SCRIPT  J 

RCS  RAZEA,II1,ERECRTN 
TSTSCB  EQU  * 

CLI  CHAR»  X*  72*  TEST  FOR  SCRUB  (N  GTR  15) 

BC  8*RECRTN 

CLI  N+l,X*08* 

BC  12,CALREC 

*N  GTR  8,  CHARACTER  IS  A  POTENTIAL  SCRUB 
♦IF  N  GTR  12,  ,  OR  CHARACTER  IS  LARGE,  SET  CHAR*SCRUB 
♦OTHERWISE  ALLOW  FOR  A  POSSIBLE  SCRIPT  CHARACTER 
CLI  N+itX'CC* 

BC  2, SCBX 

LH  R8»  DYM 

CH  R  8 , DYC 

BC  4, SCBX  DYC  GTR  DYM 

CH  R8,OXC 

BC  10 , C ALREC  DXC  LSS  DYM 

SCBX  EQU  ♦ 

MV  I  CHAR , X ' 72 ' 

B  RECRTN 

* 

* 

♦♦♦♦REC  CALL**** 

* 

* 

CALREC  INST  AREC ,RECA , 1 1 1 , 1 1  1 ,ERECRTN 

* 

* 

♦♦♦♦MULTI-CHARACTERS**** 


TOBIG  LH  R7* I NKC 

LH  R8, INKIND 

CR  R8,R7 

BNH  0VR2 

SR  R8»R7 

STH  R8, INKIND 

L  R4,0ATA  MOVE  INK 

L  R9 1 1 CP 

LH  R 10, 6 ( R9  ) 

SR  RIO, R7 

LA  R  1 1 , 2 

STH  R11,6(R9) 

L  R6.INK8 

MOVINK  STC  R8,MVC+ 1 

LA  R7,0(R7,R6) 

EX  0»MVC 

L  R4, DATA  DON’T  UPDATE  CCW  COUNT  IF  NO  INK 

TM  IND, X*  80* 

BE  0VR21 

STH  R 10, 6 ( R9 ) 
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8  0VR2 

* 

♦ 

****ZERO  INK  COUNT**** 

* 

* 

CVR2I  XC  INKINO (2) , INKINO 

* 

♦ 

****DCN*  T  RESTORE**** 

* 

* 

CVR2  01  PUP  + It  Xf  30* 

* 

* 

****2  CHARACTERS**** 

* 

♦ 


ALPHA 

L 

R4»  D ATA 

TEST  FOR  NO  RECOGNITION 

TM 

IND, X*40* 

BC 

8  »  WA  TR 1 

CLI 

CHAR »  X • EF  * 

CK 

IF  CHAR  OR  NO  CHAR 

ec 

8,NCEXT 

NO 

CHAR 

TM 

PUP+l, X*  20* 

BC 

8,  TCE 

NO 

MORE  DATA  TAKE  TERMINAL 

* 

PARL 

CNTX=F,LGW=PHI,HIGH 

=CHARX 

* 

****RESET  FOR 
* 

NEW  CHARACTER**** 

* 

♦RESET 

CHAR  SIZE,  LOCATION,  ETC. 

PHI 

MVC 

DXC ( 12) ,DXS 

LH 

R6,SN 

BCT 

R6, DECR6 

DECR6 

SLL 

R6 ,  I 

LH 

R7»XSP(R6) 

STH 

R7, XSP 

LH 

R7,YSP(R6) 

STH 

R7, YSP 

LA 

R6 ,  I 

STH 

R6,SN 

XC 

PI  I),P 

XC 

PAD ( 4 ) »  P AD 

XC 

CHAR ( 1 ) ,CHAR 

L 

R4, 0 AT  A 

L 

R7,CET 

STH 

R7 , YC6NT 

MVC 

P CHAR  I I ), CHAR A 

B 

REINK 

* 
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* 

****REC  EXIT**** 

* 

* 

*REC  EXITS  TO  HERE 
RECRTN  EQU  * 

♦IF  N  GTR  8  ANO  CHAR  IS  NOT  A  SCRIPT  CHARACTER,  SET  CHAR-SCRUB 
CLI  CHAR, X*A9' 

BC  2, SCBX2 

CLI  CHAR , X *  8 1  * 

BC  10, SCRPT 

SCBX2  EQU  * 

CLI  N+1,X*G8* 

BC  12 ,RCR  TN  1 

MV  I  CHAR , X • 72* 

B  RCRTN1 

SCRPT  EQU  * 

♦THIS  IS  A  SCRIPT  CHARACTER 
* 

♦THE  FOLLOWING  CODE  CONVERTS  A  LOWER  CASE  CHARACTER  TO  THE  SAME 
♦UPPER  CASE  CHARACTER 

01  CHAR ,  X ' 40 ' 

RCRTN1  ECU  * 

N I  PUP+ 1 , X • CF  * 

L  R4, INDEX  PRESET  EXPIRATION  *  TIME 

MV  I  3 ( R4 ) , X ' 0 1  * 

♦SKIP  AROUND  THE  CLOCK  IF  CHAR  IS  A  GEOMETRIC  SYMBOL,  I.E.  INK  VECTOR 

*  SIZE  IS  8  RASTERS 

L  R4 , D ATA 

TM  IND, X*  CC  * 

BC  1,CLEXF 

NOSKIP  EQU  * 

01  PUP+ 1 , X *  04*  IND  CLOCK  RUNNING 

RECX  INST  CLK1,CLK2,FWAITBX,ITIME,ECLEXP,ECLEXF 

* 

* 

♦♦♦♦CLOCK  EXPIRED  (DUE  TO  RUNNING  LONGER  THEN  TIME)**** 

* 

* 

CLEXP  EQU  * 

SETCK  EQU  * 

SET  PSG=WAIT8X,CNTX=F  TURN  OFF  CLOCK 

PAWS 

♦ 

♦ 

♦♦♦♦CLOCK  TURNED  OFF  (DUE  TO  PENDOWN)**** 

♦ 

♦ 

CLEXF  EQU  * 

L  R4,DATA 

TM  IND, X* 10* 


*  * 


8C  1 f GOF INX 

N I  PUP+  l »  X • FB • 

TM  PUP+ 1 »  X  *  02  * 

8C  1  *  F I NSH 

BAL  R15*  GUTPT S 
TM  PUP+1,X*10* 

BC  1, ALPHA 

L  R4, INDEX 

CLI  3 ( R4 ) *  X*  CO* 

ec  8  »  WA I TZ 

MV  I  PUP+1,X'C0» 
8  ALPHA 

* 

♦ 

♦♦♦♦FINISH  ENTRY  !♦♦♦♦ 

♦ 

♦ 

FIN  TM  PUP+ It  X*  04* 

BC  8  »  F INSH 

Cl  PUP+ 1 1  X *  02 * 

BC  15  »  SETCK 
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HALT  CLOCK  EXIT 

CHECK  IF  PENDING  CHAR  EXIT 

WHY  CLOCK  EXPIRED 
MORE  DATA 

RESET  ALL  INIICATIORS 

CALLER  INDICATES  TO  FINISH 

SET  BOX  FOR  CLOCK 


♦♦♦♦SET  UP  CUTPUTS**^* 

♦ 

♦ 

GUTPTS  L  R4,DATA 

MVC  EP ( 2 ) *  XSP 

MVC  EP+2 ( 2 ) »  YSP 

MVC  EP+4 ( 2 ) »  XEP 

MVC  EP+6 ( 2  J  *  YEP 

L  R4»  DATA  OUTPUT  CHAR 

MVC  CHARA (  1 ) tCHAR 

L  R7»CENT  OUTPUT  CENTER 

ST  R7,CET 

MVC  AR{U,NCUSP+i  AR,  CHAR  SIZE 

MVC  AR+ 1(1) *  ASPR+1 

MVC  SI ZE ( 2  )  »DXC 

MVC  S I ZE  +  2 ( 2 ) »  DYC 

BR  R 1 5 

* 

♦ 

♦♦♦♦NO  CHARACTER***^ 

♦ 

♦ 

NCEXT  EQU  ♦ 

TM  PUP+ it  X' 20* 

BC  8.TNE  TERMINAL  EXIT  NO  MORE  DATA 

PARL  CNTX=F,LOW=PHI,HIGH=NCHARX 

♦ 

♦ 


♦♦♦♦FINISH  ENTRY  2**** 

* 

♦ 

FINSH  BAL  R 15t  OUTPTS 

* 

♦ 

♦♦♦♦FINISH  ENTRY 
* 

* 

GCFINX  EQU  ♦ 

BAL  R15*  OUT  INK 
EPLCG  FINX 

* 

* 

♦  ♦♦♦TERMINAL  CHARAC  TER*^* 

♦ 

♦ 

TCE  EQU  ♦ 

BAL  R 15 1  CUT  INK 

EPLOG  XTC 

♦ 

♦ 

♦  ♦♦♦TERMINAL  NO  CHAR**« 

♦ 

♦ 

TNE  ECU  ♦ 

BAL  R 1 5 1  OUT  I NK 

EPLOG  XTN 

♦ 

* 


♦♦♦♦SET  UP  INK**** 
* 

* 


CUTINK 

EQU 

* 

l 

R4,0ATA 

TM 

INDt  X*  CC* 

ec 

itOUTSKP 

L 

R7» I  CP 

LA 

R8,2 

STH 

R  8 1 6 l R7 ) 

CUTSKP 

EQU 

* 

BR 

R  15 

* 

♦ 


♦  ♦♦♦END  OF  CHAREC**** 
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CHAREC  RCS'S 


ANS4 


♦FUNCTION 

♦ 

♦TRANSLATES  THE  FIRST  FOUR  STYLUS  DIRECTIONS  (IN  CODE)  TO  A  I-BYTE 
♦INDEX  (IN  11+3)  CORRESPONDING  TO  A  SET  OF  POTENTIAL  STROKES. 
*FO=NCT  ALLOWABLE,  13=00N*T  KNOW 
* 

* 

* 

♦CALL 

♦  RCS  ANG4A, III ,  EEX I T 

♦WHERE  II  IS  AT  THE  TCP  OF  CHAREC»S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTER.  R6 

* 

♦INTERNAL  REGISTERS.  R7,R8,R10 
* 


* 


USING 

REGS 

XR6.R6 

EXO 

ECU 

0 

C6 

DSECT 

XR6 

OS 

OF 

11 

DS 

IF 

OS 

IF 

CODE 

DS 

IF 

DS 

5F 

N. 

DS 

IF 

ANG4 

BOX 

LA 

RIO, 8 

SH 

R 10,  N 

BC 

12 , ANGCUT 

LH 

R7»CCDE 

SRGT 

SRL 

R7 , 2 

BCT 

RIO, SRGT 

LA 

R8»3 

NR 

R8»R7 

LA 

RIO, 8 
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SH  R10*N 

SLFT  SLL  R7,2 

CR  R7fR  8 

BCT  RIO, SLFT 
STH  R7,C0DE 

ANGCUT  MVC  11+3(1), CODE 

TR  11+3(1), THETA 

ANGE  6EXIT  EXO 

THETA  DS  OH 

CC  X'CC'  COCO  SBARM 

CC  15C'C*  ILLEGAL 

CC  2X* 13’  OlOO-OiOi  DK 


DC 

X*  AO  * 

0102 

RSC 

CC 

X*  3F  • 

0103 

SCRPT 

CC 

C'O* 

C11C  illegal 

CC 

X*  13* 

Clll  DK 

CC 

2C  '  0  * 

ILLEGAL 

DC 

X*  13* 

0120  OK 

CC 

X '  2 1 ' 

0121  S5 

CC 

X*  13* 

0122  OK 

CC 

X*  3E* 

0123 

S09M 

CC 

X*  30  • 

0130 

S9LC1 

CC 

X*  Al* 

0131 

SCPFP 

CC 

X  *  A3  * 

0132 

RSS 

DC  * 

X*  A2  * 

0133 

SCPEL 

DC 

2X  *  00  * 

0200,0201  S2MRZ 

DC 

X*  2A* 

0202  S3SCRB 

DC 

2X*0F* 

0203,0210  S3MBR 

DC 

3X' OD* 

0211-0213  S2NRZ 

CC 

2C  *  0  * 

ILLEGAL 

DC 

CC 

X*  20* 

C*0* 

0222  SLKRTM 

DC 

X  *  02  * 

0230  S23HB 

DC 

x*co* 

0231  S2MRZ 

DC 

X*  C£* 

0232  S3MB 

CC 

X*  1A* 

0233  S7MGK 

CC 

X  *  00 ' 

0300  S2MRZ 

DC 

X*  32  * 

0301 

S8 

CC 

X'OE* 

0302 

S3MB 

DC 

X*  OF* 

0303  S3MBR 

CC 

X*  AA* 

0310 

RSV 

CC 

X*  A9* 

0311 

S8LCV 

DC 

X*  AO* 

0312 

RSC 

DC 

X*01* 

0313  STPM 

CC 

X  •  02  • 

0320 

S23HB 

CC 

X  •  38  * 

0321 

S023MB 

DC 

X*  12* 

0322  SRPRM 

DC 

DC 

X  *  00  * 

3C*  0* 

0323  S2MRZ 

CC 

X*  1A* 

0333  S7MGK 

CC 

X*  IE* 

1000  SFE 
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DC 

3C  *  0 ' 

DC 

X*  13' 

1010 

DK 

DC 

X*  13* 

1011  DK* 

POSSIBLY  TILDA 

DC 

X*  13  ' 

1012 

DK 

CC 

X'  13* 

1013 

DK 

DC 

X  *  02  * 

1020 

S23MB 

DC 

X'CE* 

1021 

S3MB 

CC 

X'  13* 

1022 

DK 

DC 

X*  02 * 

1023 

S23MB 

CC 

X '  OF  ' 

1030 

S3MBR 

CC 

X*  45* 

1031 

SCPNRZ 

CC 

X  •  03  * 

1032 

S23MBP 

DC 

X*  38* 

1033 

SA7 

CC 

5C*  0  * 

CC 

X'  16' 

1111 

S1MAK 

DC 

IOC' O' 

CC 

2X* 13* 

1200, 

1201  DK 

DC 

2X* IB  * 

1202, 

1203  SSM 

CC 

4X* 13* 

1210- 

■1213  DK 

DC 

2C  *  0  • 

CC 

X»  13' 

1222 

DK 

DC 

C'  O' 

DC 

X'  04' 

1230 

SMC 

CC 

X*  32' 

1231 

S8 

CC 

X  •  05  • 

1232 

SS8M 

CC 

X'  15' 

1233 

STPA 

CC 

X*  11' 

1300  S24 

CC 

X'  17* 

1301 

SNMA 

CC 

2X»  35* 

1302, 

1303  S3 

DC 

X'OO' 

1310 

S2MRZ 

DC 

X*  17' 

1311 

SNMA 

CC 

X  •  36  • 

1312 

SASTAR 

CC 

X*  18' 

1313 

SMLC 

CC 

X  ’  36 ' 

1320 

SASTAR 

CC 

X  •  CD ' 

1321 

S2MRZ 

CC 

X*  13' 

1322 

DK 

DC 

X  *  46  * 

1323 

RSZ 

CC 

3C  *  0  • 

DC 

X'  19* 

1333 

SCOMAM 

CC 

X*  1A  • 

2000 

SBARMK 

CC 

3C  '  0  * 

CC 

X*  33' 

2010 

SG 

DC 

X  *  06  • 

2011 

SG069M 

CC 

X'  08' 

2012 

SGC6M 

CC 

X*  34 * 

2013 

S9 

CC 

X  »  29  * 

2020 

SGSCRB 

CC 

X'  IB' 

2021 

SSM 

DC 

X  *  30 ' 

2022 

SGS06M 

CC 

X  •  47 ' 

2023 

SE 

CC 

X  *  4A ' 

2030 

SEQ 

CC 

X*  48 ♦ 

2031 

SCPGQ 
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cc 

X*  05* 

2032  SS8M 

oc 

X*  1C* 

2033  S9MK 

cc 

3X  * 1 3  * 

2100-2102  DK 

cc 

X'  3C  • 

2103 

S09 

cc 

C*C» 

cc 

X*  13* 

2111  DK 

cc 

2C  *  0  * 

cc 

8X* 13* 

2120-2133  DK 

cc 

IOC*  C« 

cc 

X'CC* 

2222  SBARM 

cc 

5C  *  0  * 

cc 

X*  ID* 

2300  SCMEG 

cc 

X'  06 • 

2301  SG069M 

cc 

X  *  2F  * 

2302  SGS 

cc 

X  •  07  * 

2303  SS589M 

cc 

X  *  2  2  * 

2310  STP5 

cc 

X  *  3  2  ' 

2311  S8 

cc 

X*  33* 

2312  SG 

cc 

X '  07 * 

2313  SS589M 

cc 

2X*  32* 

2320,2321  S8 

cc 

X*  IB* 

2322  SSM 

cc 

X  *  47  * 

2323 

SE 

cc 

3C '  0  * 

cc 

X*  IE* 

2333  SFE 

cc 

X*  IF* 

3000  SLMEK4 

cc 

3C*  0* 

cc 

X*  3A* 

3010 

SG81 

cc 

X*  20* 

3011  SUM JU 

cc 

X*  08* 

3012  SGC6M 

cc 

X*  27* 

3013  SUMAM 

cc 

2X  *  22  * 

3020,3021  STP5 

DC 

X'  10* 

3022  STP6 

DC 

3X*  22* 

3023-3031  STP5 

DC 

X*  22* 

3032  STP5 

CC 

X*  23* 

3033  SK5 

DC 

X  *  24 ' 

3100  STPH 

cc 

X*  13* 

3101  DK 

cc 

X*  2C* 

3102  SBDPR1 

DC 

X*  09* 

3103  SBDPR 

cc 

C»C* 

cc 

X  *  25  * 

3111  SVM 

cc 

2C  *  0* 

DC 

2X  *  24* 

3120,3121  STPH 

DC 

X*  26* 

3122  SDMH 

cc 

X'  39* 

3123  SCG 

DC 

X*  28* 

3130  BR 

cc 

X  *  OA  • 

3131  SMNW 

cc 

X  •  2C  • 

3132  S8DPRI 

cc 

X*  27* 

3133  SUMAM 

DC 

4X* 13* 

3200-3203  DK 

cc 

X  *  3C  * 

3210 

S09 
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DC 

X  *  28  * 

3211 

STPJ 

DC 

2X  *  3 A  * 

3212 

,3213  S9 

DC 

2C  •  0 ' 

DC 

X*  2E  * 

3222 

SRPRMJ 

DC 

C»C* 

DC 

X*  37* 

3230 

see 

DC 

X  *  32  * 

323 

DC 

X*  35* 

3232 

S3 

CC 

X*  13* 

3233 

DK 

DC 

I5C ' 0  * 

CC 

X*  CB  * 

3333 

SM1M 

END 

_ _ _ — . — ’  . 

--  ... 

CHECK 


♦FUNCTION 

* 

♦CHECKS  TO  SEE  IF  THE  PREVIOUS  SUBCHARACTER  (PREV.  *REC*  OUTPUT)  CAN  BE 

♦  COMB  I NEO  WITH  THE  CURRENT  STROKE  (AS  ENCCOED  FROM  THE  FIRST  FOUR 

♦  DIRECTIONS  BY  • ANG4 * )  TO  FORM  ONE  OF  THE  ALLOWABLE  CHARACTERS. 

♦ 

* 

# 

♦CALL 

♦  RCS  CHECKA, I  II, END, EYES 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

♦  I 1+3  CONTAINS  THE  STROKE  CODE 

♦  EXIT  NO  WHEN  STROKE  ANO  SUBCHARACTER  CANNOT  BE  COMBINED 

♦  EXIT  YES  WHEN  STROKE  AND  SUBCHARACTER  CAN  BE  COMBINED 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7  THRU  RIO 
* 

* 


USING 

XR6 

EXO 

EQU 

0 

EX4 

EGU 

REGS 

4 

D6 

DSECT 

XR6 

DS 

OF 

11 

CS 

IF 

DS 

2F 

DS 

11H 
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SN 

CS 

1H 

CS 

14H 

DS 

20C 

DS 

3F 

DS 

IH 

DS 

2C 

OS 

3H 

P 

DS 

IC 

CHAR 

DS 

1C 

CHECK 

8CX 

SR 

R8*R8 

IC 

R8, 11+3 

BCT 

R8,MULT 

MULT 

SLL 

R8  *  2 

4  TIMES 

EX 

0 * CHKT  AB ( R8 ) 

CK 

SR 

R8*R8 

IC 

R8,CHAR 

♦  ALL 

VE 

RTICALS  TREATED  THE  SAME 

CLI 

SN+1,X*C2* 

BC 

6 1 CK2 

CLI 

P,X*01* 

BC 

8*  CK  1 

CLI 

P»  X*  09* 

8C 

6*CK2 

♦OLD 

CH 

AR  IS 

VERT 

♦CHANGE 

CHAR 

CODE  TO  1 

CK  1 

LA 

R8  *  1 

CK2 

SR 

R9,R9 

SR 

RIC.R1C 

CK3 

IC 

RIO*  0 ( R? ) 

CR 

R 10  »  R9 

BC 

8*  CK  X 

CR 

RIO*  R8 

8C 

8*  CKOK 

LA 

R7* 1 ( R7 ) 

BC 

15*CK3 

♦  END 

OF 

POSS 

I  BLE  OLD-CHAR 

LIST 

CKQK 

BEXIT 

EX4 

CKX 

BEXIT 

EXC 

CHK  T  AB 

DS 

OF 

LA 

R  7  »  S  1 

B 1 

LA 

R7,S2 

82 

LA 

R  7  *  S2 

83 

LA 

R7*  S 1C 

84 

LA 

R7,S4 

B5 

LA 

R  7  »  S 10 

86 

LA 

R7,S4 

87 

LA 

R7*S10 

88 

LA 

R7*  S3 

B9 

LA 

R7,S4 

BIO 

LA 

R7 » S 12 

811 
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LA 

R7  »  S 1 3 

B  12 

LA 

R7 » S3 

813 

LA 

R 7*  S  1 

814 

LA 

R7»  S  1 

815 

LA 

R  7  ♦  S2 

816 

LA 

R7,S7 

817(11) 

LA 

R7*  S3 

B18 

LA 

R7.S4 

819 

LA 

R7,S5 

820 

LA 

R7,S4 

821 

LA 

R7,S6 

822 

LA 

R7,S7 

823 

LA 

R7.S4 

824 

LA 

R7,S8 

825 

LA 

R  7 » S3 

826 

LA 

R7,S4 

827 

LA 

R7»  S 1 

828 

LA 

R7,Sl 

B2S 

LA 

R7 1 S 14 

830 

LA 

R7*S9 

831 

LA 

R  7  *  S  1 0 

B32 

LA 

R7t  S4 

833 

LA 

R7,S4 

834 

LA 

R7»  $  1 

835 

LA 

R7.S1 

836 

LA 

R7,Sll 

837 

LA 

R*7*  S  1 

838 

LA 

R7»S  1 

839 

LA 

R7,S4 

840 

LA 

R7,S4 

B41 

LA 

R7,S1 

842 

LA 

R7,S4 

B43 

LA 

R  7  ♦  S  7 

844 

LA 

R7»  SI 

845 

LA 

R7*  S 15 

846 

LA 

R7»  S 1C 

847 

LA 

R7»  S 10 

B48 

LA 

R7.S1C 

849 

LA 

R7,S4 

850 

LA 

R7*S4 

851 

LA 

R7,S4 

852 

LA 

R  7  *  S4 

853 

LA 

R7,S4 

854 

LA 

R7,S4 

855 

LA 

R7,S4 

856 

LA 

R7,S4 

857 

LA 

R7*  S4 

858 ( 3A ) 

LA 

R7,S2 

859(38) 

LA 

R7»S2 

B60 ( 3C ) 

LA 

R7 1  S4 

86 1 ( 3D) 

LA 

R  7  »  S  1 0 

862 (3E) 
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LA 

R7,S4 

LA 

R7,S4 

LA 

R7»  S4 

LA 

R  7 »  S  4 

LA 

R7,S4 

LA 

R7,S4 

LA 

R7*S4 

LA 

R7,S4 

LA 

R7.S4 

LA 

R7,S4 

LA 

R7,S4 

LA 

EJECT 

R7.S4 

SI 

OS 

OH 

DC 

X*Ol* 

DC 

X'OO* 

S2 

DS 

OH 

DC 

X»01» 

DC 

X  •  EO  * 

DC 

X*  FO* 

DC 

X  •  E4  * 

DC 

X*C3' 

CC 

X '  F6  * 

DC 

X*C7* 

DC 

X '  E2 * 

CC 

X  *  F5 ' 

CC 

X*  F8  * 

CC 

X'OO* 

S3 

DS 

OH 

DC 

X'Ol* 

CC 

X*  EO' 

DC 

X*CO' 

S4 

DS 

OH 

DC 

X»00' 

S5 

DS 

OH 

DC 

X»Ol* 

DC 

X '  EO  * 

CC 

X*  FO* 

CC 

X *  F6 ' 

DC 

X  *  C3  * 

CC 

X'C7* 

CC 

X  *  D2  * 

CC 

X '  E3 ' 

CC 

X'E5* 

CC 

X  *  E7  * 

CC 

X*  E8* 

DC 

X  ’  CE  * 

CC 

X  •  CD  • 

CC 

X*  El ' 

CC 

x»co* 

S6 

DS 

OH 

B63 ( 3F ) 
864(40 
865(41) 
B66 ( 42 ) 
867(43) 
868(44) 
B69 ( 45 ) 
B7G ( 46 ) 
871(47) 
872(48) 
873(49) 
874(4A) 


1 


l 

C 

u 

c 

6 

G 

S 

5 

8 


1 


1 

C 

6 

C 

G 

K 

T 

V 
X 

Y 
♦ 
( 
/ 
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oc 

X'Cl* 

1 

CC 

X *  EO * 

- 

CC 

X  *  E7 ' 

X 

CC 

X '  E  8 ' 

Y 

CC 

X*  E5 * 

V 

CC 

X  *  D2  * 

K 

CC 

X*  F7' 

7 

CC 

X*  CD* 

) 

DC 

X'CO* 

S7 

DS 

CH 

DC 

X*  EO* 

— 

CC 

X*CO' 

S8 

CS 

OH 

DC 

X'OI' 

I 

DC 

X*  EO* 

- 

DC 

X '  CE ' 

+ 

CC 

X'CO* 

S9 

CS 

OH 

CC 

X'OI' 

1 

CC 

X*  EO' 

- 

CC 

X  •  D2  * 

K 

CC 

X'FE' 

= 

DC 

X'FO* 

C 

CC 

X  •  F6  • 

6 

CC 

X'  C7  * 

G 

CC 

X*  E7  • 

X 

CC 

X*  E8' 

Y 

CC 

X*  E5* 

V 

CC 

X'CO' 

SIO 

CS 

OH 

DC 

X'FO* 

0 

CC 

X '  £4  • 

u 

CC 

X*  C3  • 

c 

CC 

X '  F6  • 

6 

CC 

X'C7* 

G 

CC 

X'CO' 

Sll 

CS 

OH 

CC 

X'OI* 

I 

CC 

X  •  E5 ' 

V 

CC 

X*  C2 » 

K 

CC 

X*  E7* 

X 

CC 

X*  E8* 

Y 

CC 

X'FO* 

C 

CC 

X'E4* 

L 

CC 

X'C3* 

C 

DC 

X*  F6* 

6 

CC 

X'C7' 

G 

CC 

X'OO* 

♦VERTICAL  STROKE 
S 1 2  CS  OH 

CC  X'OI* 


1 
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cc 

X  *  EO  * 

DC 

X*  C2» 

K 

CC 

X'  E5* 

V 

CC 

X*  E7* 

X 

CC 

X*  E8» 

Y 

CC 

X*  CE  * 

+ 

cc 

X  •  C9  * 

I 

cc 

X*C6* 

F 

cc 

X*  FO* 

C 

cc 

X  *  F6  * 

6 

cc 

X*  E4' 

U 

cc 

X  *  C3  * 

L 

oc 

X*  F7* 

7 

cc 

X*CO» 

< 

cc 

X  *  E 1  • 

/ 

cc 

X*CC* 

LSS 

cc 

X*  FE* 

* 

cc 

X*  C5* 

N 

cc 

X'CC* 

* 

cc 

X*C1* 

A 

cc 

X  •  E2  * 

S 

cc 

X  *  C  3  * 

c 

cc 

X '  C7  * 

p 

cc 

X *  F8 ' 

8 

cc 

X  *  C7  * 

6 

cc 

X*  C8  * 

S 

cc 

X  •  F5  * 

5 

cc 

X*  F2  * 

2 

cc 

X*  85* 

LC  E 

cc 

X*  89* 

LC  I 

cc 

X  *  99  • 

LC  R 

cc 

X*  A5* 

LC  V 

cc 

X*  86' 

LC  F 

cc 

X'OO* 

♦HORIZONTAL 

STROKE 

S 13  CS 

CH 

CC 

X*  01* 

1 

cc 

X'  EO* 

- 

cc 

X*  02* 

K 

cc 

X*  E5* 

V 

cc 

X '  E7  * 

X 

cc 

X*  E8* 

Y 

cc 

X  •  E3  * 

T 

cc 

X*CE* 

+ 

cc 

X  *  C9 ' 

I 

cc 

X*  C6* 

F 

cc 

X'  F5* 

5 

cc 

X*  E2* 

S 

cc 

X*  F2* 

2 

cc 

X»C3* 

c 

cc 

X  •  CF  * 

LBRAC 
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DC 

X  *  7  0  • 

KARAT 

DC 

X*  F7* 

7 

DC 

X ’  C3 * 

L 

DC 

X*  CD* 

< 

DC 

X*  El* 

/ 

DC 

X*C1» 

J 

CC 

X*  CD* 

) 

CC 

X*  EE* 

GTR 

DC 

X  *  FO * 

C 

DC 

X  *  F6  * 

6 

DC 

X*  64* 

U 

DC 

X*  C2* 

B 

DC 

X*  C4 ' 

D 

CC 

X  *  C7  * 

P 

CC 

X  *  D9* 

R 

CC 

X*  F8* 

8 

DC 

X *  F9 * 

9 

CC 

X«C1« 

A 

CC 

X*  85* 

LC 

DC 

X*  86* 

LC 

CC 

X'  89* 

LC 

CC 

X*  93  * 

LC 

DC 

X*  88* 

LC 

CC 

X*  C8* 

H 

CC 

X*CC* 

* 

CC 

X*CO* 

DS 

OH 

DC 

X*01* 

1 

DC 

X  *  EO  * 

- 

CC 

X  •  F7  * 

7 

DC 

X'CO* 

DS 

OH 

DC 

X  *  EO  * 

— 

CC 

X*  FO* 

0 

CC 

X*CO* 

END 

CORNER 


♦FUNCTION 

* 

♦DETECTS  CORNERS  BASED  ON  SHARP  CHANGES  IN  DIRECTION,  AND  UPDATES  NC. 
♦OF  GEOMETRIC  CORNERS  (NC)  AND  THE  ARRAY  OF  POSITIONS  OF  GEOMETRIC 
♦CORNERS  (XC,YC). 

♦USES  16-C IRECT ION  SEQUENCE  AX  THRU  AX3  AND  DIFFERENCES. 

♦INDEX  C=0  IS  WAIT  FOR  CORNER,  C=I  IS  POTENTIAL  CORNER,  C=2  IS  JUST  GOT 
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♦CORNER. 

♦ 

* 

* 

♦  CALL 

♦  RCS  CORNER At  1 1 1 f  EEXI T 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC • S  INTERNAL  PARAMETER  LIST 

♦ 

♦ 

* 

♦INPUT  REGISTER-  R6 

♦ 

♦INTERNAL  REGISTERS.  R7  THRU  R9 
♦ 


♦ 

* 


USING 

XR6,R6 

EXC 

EGU 

0 

REGS 

06 

OSECT 

XR6 

CS 

OF 

DS 

3F 

DS 

26H 

CS 

20C 

OS 

3F 

DS 

1H 

CS 

2C 

CS 

3H 

DS 

56C 

CS 

2H 

XLO 

CS 

1H 

YLO 

DS 

IH 

OS 

1H 

AX2 

CS 

1H 

DS 

1H 

AX 

DS 

1H 

AX23 

DS 

IH 

AX  12 

CS 

1H 

AXOl 

CS 

IH 

AX02 

DS 

IH 

NC 

CS 

IH 

C 

DS 

IH 

DS 

7H 

DS 

IF 

DS 

6C 

DS 

IH 

DS 

IF 

XC 

CS 

IOC 

YC 

DS 

IOC 

CORNER 

BOX 

♦CORNER 

DETECTOR 
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CLI 

C  »  X  *  02  ' 

BC 

8, COUT 

CLI 

C,X*01* 

BC 

8.CEGI 

CLI 

AXOl+1,  X*04* 

BC 

4,AXP2 

CLI 

AX01  + 1 , X  *  OC  * 

BC 

2  *  AXP2 

AX1EC2 

LH 

R7, AX  12 

STH 

R7»AXC2 

BC 

15 1 1  EG J 

AXP2 

LH 

R7,AX 

SH 

R7»  AX2 

LPR 

R7,R7 

STH 

R  7  »  A  XC2 

CLI 

AXC2+1,X*04* 

BC 

4, COUT 

CLI 

AX02  + 1 »  X  *  OC ' 

BC 

2 »  COUT 

LH 

R7*AX23 

STH 

R7*  AXG2 

IEGJ 

CLI 

AX02+  1 »  X  *  0 1 f 

BC 

12  »  S  ETC  1 

CLI 

AX02+1,X*OF* 

BC 

6,  COUT 

SETC1 

CLI 

C,X*01* 

BC 

8* INCNC 

MV  I 

C,X»01» 

♦♦STORE 

PGSITION  OF  POTENTIAL  CUSP 

LH 

R9,NC 

LA 

R8  »  5 

CR 

R9,R8 

BC 

4,  NCLSS5 

SR 

R9.R9 

NCLSS5 

SLL 

R9  » 1 

LH 

R8  *  XLQ 

-STH 

R8,XCIR9) 

LH 

R8 » YLO 

STH 

R8,YC(R9 ) 

BC 

15, CEXIT 

CEQ1 

LH 

R7, AXO l 

STH 

R7 , AX02 

BC 

15,1 EQJ 

INCNC 

LH 

R7,NC 

LA 

R7,i(C,R7) 

STH 

R7,NC 

MV  I 

C, X*  02* 

BC 

15, CEXIT 

COUT 

MV  I 

c,x*oo* 

CEXIT 

BEXIT 

END 

EXO 
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DOT 


♦FUNCTION 

* 

♦USED  WHEN  THE  SECOND  STROKE  IS  A  DOT. 

♦DETERMINES  IF  THE  FIRST  STROKE  RESULTS  IN  A  SCRIPT  I  CR  J. 
* 

* 

* 

♦CALL 

♦  RCS  IDOTAVlIl,  EYES,  END 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

♦  EXIT  YES  WHEN  SCRIPT  I  OR  J 

♦  EXIT  NO  WHEN  NOT  SCRIPT  I  OR  J 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7  THRU  RIO 
* 

* 

* 


USING 

REGS 

XR6.R6 

EXO 

ECU 

0 

EX4 

ECU 

0 

06 

DSECT 

XR6 

DS 

OF 

CS 

3F 

DS 

26H 

DS 

20C 

DS 

3F 

DS 

IH 

DS 

2C 

DS 

3H 

DS 

1C 

CHAR 

DS 

1C 

DOT 

BOX 

♦  2ND 

STROKE  IS 

A  DOT 

♦DOES  1ST  STROKE  RESULT  IN  A  SCRIPT  I  OR  J 
♦  IF  YES.  TAKE  EXO.  OTHER  I SE  EX4 
SR  R8»R8 

IC  R8.CHAR 

SR  R9.R9 
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SR 

R 1C  t  R  1C 

LA 

R7, ILIST 

CKLIST 

ECU 

* 

IC 

R 1C  »  C ( R7  ) 

CR 

R1C,R9 

BC 

8, NOX 

NOT  I 

OR  J 

CR 

R 10, R  8 

BC 

8,  IJX 

LA 

R7,1(R7) 

B 

CKLIST 

IJX 

LA 

R8,JLIST 

CR 

R7»  R  8 

BC 

10,  JX 

IX 

MV  I 

CHAR, X' 89* 

B 

YESX 

JX 

MV  I 

CHAR , X • 9  1  • 

YESX 

BEXIT 

EXC 

NOX 

BEXIT 

EX4 

ILIST 

DS 

OF 

DC 

X*  89* 

I 

DC 

X'  85' 

E 

DC 

X*  A5* 

V 

CC 

C '  L  * 

L 

DC 

C*  2* 

2 

DC 

X*  82* 

B 

DC 

X*  70  • 

KARAT 

JL  1ST 

EQU 

* 

DC 

X*  86* 

F 

DC 

X  *  9 1  * 

J 

DC 

X*  F8  • 

8 

CC 

X*  E5  * 

V 

CC 

X'  CD • 

RIGHT 

PAREN 

CC 

X*CO* 

END  OF 

LISTS 

END 

DELTAS 


♦FUNCTION 

* 


♦QUANTIZES  THE  STARTING  POINT 
♦BY  CONSIDERING  THE  CHARACTER 

* 


♦ 
* 
* 
* 
♦  i 


3  2 

XLC  7  6 

II  10 
15  14 


AND  ENDING  POINT  LCCATI 
REGION  AS  A  4  X  4  GRID 
YTC 
1  0 

5  4  XRC 

9  8 

13  12 

YBC 


ONS  OF  EACH  STROKE 
CODED  AS 
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* 

* 

* 

♦CALL 

♦  RCS  DELTASAt  IUfEEXIT 

♦WHERE  II  IS  AT  THE  TCP  OF  CHAREC*S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTER*  R6 
♦ 

♦INTERNAL  REGISTERS*  R7  THRU  R 14 
* 

♦ 


USING 

REGS 

XR6,R6 

EXO 

ECU 

0 

06 

DSECT 

XR6 

DS 

OF 

OS 

3F 

OS 

11H 

SN 

OS 

1H 

CS 

6H 

XRC 

CS 

LH 

XLC 

CS 

LH 

YTC 

OS 

LH 

YBC 

CS 

LH 

DS 

4H 

XYE 

CS 

IOC 

XYS 

CS 

LOC 

OS 

3F 

CS 

LH 

DS 

2C 

CS 

3H 

CS 

8C 

XSP 

CS 

IOC 

YSP 

CS 

LOC 

XEP 

OS 

IOC 

YEP 

CS 

LOC 

DELTAS 

BOX 

SR 

R7*R7 

LA 

R8 » 2 

LH 

R9,SN 

SLL 

R9,  L 

BCT 

R9,0ELl 

CELL 

LH 

RIO*  XRC 

SH 

RLO»XLC 

SRL 

R 10*  2 

LH 

R 1 L  *  YTC 

SH 

RL  L, YBC 
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SRL 

R 1 1 1  2 

CEL  10 

LA 

R 13,  3 

LR 

R 14, R 1 3 

LH 

R12, XLC 

DEL3 

AR 

R 12,  R  1C 

CH 

R12,XSPCR7) 

BC 

2,CEL2 

BCT 

R13»  DEL3 

DEL2 

LH 

R 12,  YBC 

DEL  5 

AR 

R 12, R 1 1 

CH 

R12, YSPIR7) 

BC 

2  ,  DEL4 

BCT 

R14»DEL5 

DEL4 

SLL 

R14, 2 

OR 

R 1 3, R14 

STH 

R13,XYSIR7) 

LA 

R  13,  3 

LR 

R 14,  R1 3 

LH 

R12,XLC 

DEL6 

AR 

R12,R1C 

CH 

R 12 , XEP ( R7 

BC 

2, DEL7 

BCT 

R13, CEL6 

DEL7 

LH 

R12, YBC 

DEL8 

AR 

R 12, R 1 1 

CH 

R12, YEP  t  R7) 

BC 

2, DEL9 

BCT 

R 14, DEL  8 

DEL9 

SLL 

R14,  2 

OR 

R13,R14 

STH 

R 1 3, XYE ( R7 ) 

BXLE 

R7,R8,DEL10 

BEX  IT 
END 

EXO 

FN56 


♦FUNCTION 

* 

♦PRODUCES  INDEX  IN  BR56  BASED  ON  NO.  OF  DIRECTIONS  IN) 
♦5  AND  6. 

♦N=4  GIVES  8R56  =  16,  OTHERWISE  BR56  GETS  BITS  8  THRU 
* 

* 

* 

♦CALL 


AND  DIRECTIONS 
11  OF  CODE. 
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*  RCS  FN56A* I  I  1 tEEXIT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

* 

♦ 

♦ 

♦INPUT  REGISTER*  R6 
* 

♦INTERNAL  REGISTERS*  R7 
* 


* 


USING 

REGS 

XR6,R6 

EXO 

EQU 

0 

06 

DSECT 

XR6 

DS 

OF 

CS 

2F 

CODE 

OS 

IF 

DS 

10H 

N 

DS 

1H 

DS 

4H 

BR56 

DS 

1H 

FN56 

BOX 

LA 

R7,16 

STH 

R7,BR56 

CLI 

N+l*  X*  C5* 

BC 

4,  FN56E 

SR 

R7,R7 

IC 

R7  »CCDE+ 1 

SRL 

R7,4 

STH 

R7  f BR56 

FN56E 

8EXIT 

END 

EXO 

HYST 


♦FUNCTION  - — - - - - . . - 

* 

♦TRANSFORMS  STYLUS  INCREMENTAL  DISTANCE  TO  PROVIDE  HYSTERESIS  ZONES 
♦WHEN  COMPUTING  STYLUS  DIRECTION* 

* 

♦ 

* 

♦CALL 
♦ 

* 

* 


RCS  HYSTAt  EEXIT 
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* 

♦INPUT  REGISTERS 
* 

♦C(R6)  =  SMALLER  (EITHER  X  OR  Y)  INCREMENT 
♦C(R7)  *  LARGER  (EITHER  Y  OR  X)  INCREMENT 
* 

* 

* 

♦OUTPUT  REGISTERS 
* 

♦C(R8)  =  3/4  LARGER  INCREMENT  -  SMALLER  INCREMENT 
* 

* 

* 

♦INTERNAL  REGISTERS.  NONE  OTHER  THAN  THE  ABOVE 
* 

* 

USING  XR6»R6 
REGS 

EXO  ECU  0 

06  DSECT 

XR6  OS  OF 

HYST  BOX 

LR  R8,R6 

SRA  R6,2 

SR  R8  »R6 

SR  R8»R7 

BEXIT  EXO 

END 


MXMNC 


♦FUNCTION 

* 

♦UPDATES  THE  X  BOUNDS  (XLC*XRC)  AND  Y  BOUNDS  ( YTC» YBC )  OF  THE  CHARACTER 
* 

* 

* 

♦CALL 

♦  RCS  MXMNCA»II1»EEXIT 

♦WHERE  II  IS  AT  THE  TCP  OF  CHAREC*S  INTERNAL  PARAMETER  LIST 

* 

* 

♦ 

♦INPUT  REGISTER.  R6 
* 
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*  INTERNAL  REGISTERS. 

♦ 

* 


USING 

REGS 

XR6,R6 

EXO 

ECU 

0 

D6 

DSECT 

XR6 

DS 

OF 

DS 

3F 

DS 

16H 

DXC 

DS 

IH 

CYC 

DS 

1H 

XRC 

DS 

IH 

XLC 

DS 

1H 

YTC 

DS 

IH 

YBC 

DS 

IH 

DS 

4H 

DS 

20C 

DS 

3F 

DS 

IH 

DS 

2C 

DS 

3H 

DS 

56C 

DS 

17H 

XRS 

DS 

IH 

XLS 

DS 

IH 

YTS 

DS 

IH 

YBS 

DS 

IH 

MXMNC 

BOX 

LH 

R7,XRS 

CH 

R7  »  XRC 

BC 

12, MAXI 

STH 

R7, XRC 

MAXI 

LH 

R7,XLS 

CH 

R7 , XLC 

BC 

iO*M AX2 

STH 

R7, XLC 

MAX2 

LH 

R7,YTS 

CH 

R7 , YTC 

BC 

12.MAX3 

STH 

R7,YTC 

MAX3 

LH 

R7 , YBS 

CH 

R7, YBC 

BC 

10, MAX4 

STH 

R7 , YBC 

MAX4 

LH 

R7, YTC 

SH 

R7,YBC 

STH 

R7, OYC 

LH 

R7 , XRC 

SH 

R7 , XLC 

STH 

R7»DXC 

R  7 


-71- 


8EXIT  EXO 
END 


MXMNS 


♦  FUNCTION  -  __ . .  ...1 . 

* 

♦UPDATES  THE  X  BOUNDS  tXLS.XRS)  AND  Y  BOUNDS  ( YTS »  YBS )  CF  THE  CURRENT 

♦STROKE 

* 

* 

# 

♦CALL 

♦  RCS  MXMNSA, I I1,EEXIT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC’S  INTERNAL  PARAMETER  LIST 

* 

♦ 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  Rl 
* 


* 


USING 

REGS 

XR6,R6 

EXO 

EQU 

0 

D6 

DSECT 

XR6 

DS 

OF 

DS 

3F 

DS 

2H 

XT 

DS 

IH 

YT 

DS 

1H 

DS 

22  H 

DS 

20C 

DS 

3F 

DS 

IH 

DS 

2C 

DS 

3H 

DS 

56C 

DS 

15H 

CXS 

DS 

IH 

DYS 

DS 

IH 

XRS 

DS 

IH 

XL  S 

DS 

IH 

YTS 

DS 

IH 

YBS 

DS 

IH 
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MXMNS 

8CX 

LH 

R  7  ,  XT 

CH 

R7»  XRS 

BC 

12 , MAX  1 1 

STH 

R7,XRS 

MAX  1 1 

CH 

R  7  »  XL  S 

ec 

10 ,MAX22 

STH 

R7, XL  S 

MAX22 

LH 

R7,YT 

CH 

R7 , YTS 

BC 

12,MAX33 

STH 

R7, YTS 

MAX33 

CH 

R7, YBS 

BC 

10,MAX44 

STH 

R7» YBS 

MAX44 

LH 

R7 , YTS 

SH 

R7, YBS 

STH 

R7, DYS 

LH 

R7,XRS 

SH 

R7,XLS 

STH 

R7, DXS 

BEXIT 

END 

EXC 

QMM 


♦  FUNCTION  - - ~ - - - - - 

# 

♦QUANTIZES  YMAX  (THE  Y  COORDINATE  OF  A  RELATIVE  MAXIMUM)  ARRAY  TO  QYMAX 
♦ARRAY,  AND  QUANTIZES  YM IN  TO  QYMIN.  THE  QUANTIZATION  INTERVAL  IS  1/4 
♦CHARACTER  HEIGHT  WITH  QYMAX  *  0  IN  THE  TCP  1/4  OF  THE  CHARACTER,  ETC. 

* 

* 

* 

♦CALL 

♦  RCS  QMMA, 1 1 l.EEXIT 

♦WHERE  II  IS  AT  THE  TCP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7  THRU  R14 
* 

* 


USING  XR6, R6 
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EXO 

D6 

XR6 


YTC 

Y8C 


YMAX 

CYMAX 

GMM' 

♦  NOTE 


ALF 


G3 

C2 

QOl 


REGS 

EGU 

0 

CSECT 

DS 

OF 

CS 

3F 

cs 

20H 

DS 

1H 

DS 

1H 

DS 

4H 

DS 

20C 

DS 

3F 

DS 

1H 

DS 

2C 

DS 

3H 

DS 

56C 

DS 

2 1H 

DS 

IF 

OS 

6C 

DS 

1H 

DS 

IF 

DS 

20C 

DS 

23H 

DS 

10H 

DS 

IOC 

BOX 

THAT  YMIN=YMAX+1C*  QYM IN=QYMA*+5 


SR 

R7»R7 

LA 

R8»2 

LA 

R9,20 

2(5  MIN  ♦  5 

MAX) 

LH 

R 1 3*  YTC 

SH 

R13»Y8C 

SRL 

R  1 3  »  2 

D=  1/4  CHAR 

HEIGHT 

LH 

R 1C*  YBC 

AR 

R 10*  R 13 

YBC  ♦  D 

LR 

R 1 1 »  R  1  <3 

AR 

Rll,R13 

YBC  ♦  2D 

LR 

R 12 ♦ R 1 1 

AR 

R 1 2  »  R 1 3 

YBC  +  3D 

EGU 

♦ 

LR 

R 14*  R7 

SRL 

R 14*  1 

LA 

R14,QYMAX(R14> 

CH 

Rll* YMAX (R7) 

BC 

4*  GO  1 

CH 

R 10*  YMAX ( R7 ) 

BC 

4*  Q2 

MV  I 

C(R14)*X'03* 

8 

BXLE 

MV  I 

0 ( R14 ) *X'02* 

B 

BXLE 

CH 

R12*  YMAX (R7) 
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8C 

4, CO 

Cl 

MV  I 

0(R14),X*01* 

B 

BXLE 

CO 

MV  I 

0(RI4) » X  •  00  * 

BXLE 

bxle 

R7»R8»ALF 

BEXIT 

END 

EXO 

RAZE 


*  FUNCTION  '  — - . 

* 

♦INCREASES  THE  Y  COORDINATE  OF  THE  CHARACTER  CENTER  BY  (NORMAL  CHAR¬ 
ACTER  HEIGHT/2)  RASTERS  SO  THAT  A  CHARACTER  WHICH  STRADDLES  A  LINE 
♦WILL  BE  DISPLAYED  IN  THE  PROPER  POSITION. 

* 

* 

* 

*  CALL 

*  RCS  RAZEA* 1 1  It EEX  IT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R8,R15 
* 

* 


USING 

XR6»  R6 

EXO 

ECU 

REGS 

0 

06 

OSECT 

XR6 

DS 

OF 

DS 

3F 

DS 

26H 

OS 

20C 

DS 

1H 

HEIGHT 

DS 

IH 

DS 

2F 

DS 

IH 

cs 

2C 

DS 

3H 

DS 

56C 

DS 

2  IH 

CENT 

DS 

IF 
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RAZE 

BOX 

BEXIT 

EXO 

L 

R8  tCENT 

LH 

R15»HEIGHT 

NORMAL  CHAR  HEIGHT 

SRL 

R 15  *  1 

AR 

R8*R15 

ST 

R8,CENT 

BEXIT 

END 

EXO 

RELM 

♦FUNCTION 

-  -  - 

'■  .  ■ - - - -  - - - . - . . 

* 


♦UPDATES  THE  NO*  AND  POSITION  OF  RELATIVE  Y  MAXI MA  AND  Y  MINIMA# 
♦A  STARTING  POINT  CAN  BE  A  MAX  OR  MIN*  AN  ENDING  POINT  CANNOT 
* 

* 

* 

♦CALL 

♦  RCS  RELMAt 1 1 ItEEXIT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC«S  INTERNAL  PARAMETER  LIST 

♦ 

♦ 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,R8 
* 


* 


USING 

REGS 

XR6 

EXO 

EQU 

0 

C6 

DSECT 

XR6 

DS 

OF 

OS 

3F 

OS 

2H 

XT 

DS 

1H 

YT 

DS 

1H 

CX 

CS 

1H 

DY 

DS 

1H 

DS 

3H 

CS 

17H 

DS 

20C 

DS 

3F 

DS 

1H 
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DS 

2C 

CS 

2H 

CEL 

DS 

IH 

DS 

56C 

DS 

2  IH 

CS 

IF 

CS 

6C 

DS 

IH 

DS 

IF 

CS 

20C 

DS 

I9H 

PYMAX 

DS 

IH 

PYMIN 

OS 

IH 

NYMAX 

OS 

IH 

NYMIN 

DS 

IH 

YMAX 

DS 

10H 

YMIN 

EQU 

YMAX+1C 

QYMAX 

DS 

IOC 

GYM  I  N 

EQU 

QYMAX+5 

PYMXX 

DS 

IH 

PYMNX 

DS 

IH 

YMAXX 

DS 

10H 

YMINX 

EQU 

YMAXX+10 

RELM 

BOX 

LH 

R7,  YT 

CH 

R7, PYMAX 

BNH 

NO 

STH 

R7, PYMAX 

MVC 

PYMXX ( 2 ) »  XT 

♦UPWARD 

STYLUS 

MOTION 

PM  IN 

CLI 

G YM I N  »  X • Q l ' 

BNE 

EXIT 

♦  A  MAX 

HAS  OCCURRED  PREVIOUSLY 

LH 

R7,YT 

LH 

R8*PYM IN 

SR 

R7,R8 

LPR 

R7»R7 

LH 

R8 , DEL 

SLL 

R8»  I 

CR 

R  7  ♦  R  8 

BNH 

EXIT 

♦A  MINIMUM  DETECTED 

MV  I 

QYM I N»  X  *  CO  * 

MV  I 

QYMAX, X'Cl* 

MVC 

PYMAX ( 2 ) • YT 

MVC 

PYMXX ( 2 ) , XT 

LH 

R7, NYMIN 

LA 

R7  *  1 { R7 ) 

LA 

R8, 5 

CR 

R7,R  8 

BNH 

NXOK 

MAG  ( YT-PYMI N) 
2*THINNING  DISTANCE 
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NXGK 


NC 


PMXN 


♦DOWNWARD 
PMAX 

♦A  MIN 


♦  A 


NNQK 


SR 

R7 ,  R  7 

STH 

R7»NYM IN 

BCTR 

R7  »  0 

SLL 

R7  » 1 

LH 

R8, PYMIN 

STH 

R8 1 YM IN { R7 ) 

LH 

R8*  P YMNX 

STH 

R8 1  YM I NX ( R7 ) 

B 

EXIT 

CH 

R7, PYMIN 

BNL 

PMXN 

STH 

R7, PYMIN 

MVC 

P YMNX ( 2 ) »  XT 

8 

PMAX 

LH 

R  7 , 0  Y 

LTR 

R7»R7 

BP 

PM  IN 

1  STYLUS  MOTION 

CL  I 

QYMAX  »  X ' 0 1 ' 

BNE 

EXIT 

HAS  OCCURRED  PREVI 

LH 

R7,  YT 

LH 

R8 , PYM AX 

SR 

R7,R8 

LPR 

R7»R7 

LH 

R8,DEL 

SLL 

R8  *  i 

CR 

R7»  R  8 

BNH 

EXIT 

IM  DETECTED 

MV  I 

QYMAX, X'CO' 

MV  I 

CYMIN,X'OI' 

MVC 

PYM I N ( 2 ) »  YT 

MVC 

PYMNX { 2  )  , XT 

LH 

R7»NYMAX 

LA 

R7 , 1 1  R7 ) 

LA 

R8 ,5 

CR 

R7,R8 

BNH 

NNOK 

SR 

R7»R7 

STH 

R7,NYMAX 

BCTR 

R7  »  0 

SLL 

R7,  I 

LH 

R8 , PYMAX 

STH 

R8,YMAX(R7) 

LH 

R8,PYMXX 

STH 

R8 , YMAXX ( R7 ) 

BEXIT 

EXO 

END 

MAG(YT-PYMAX) 

2 ♦THINNING  DISTANCE 


EXIT 
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SMOOTH 


♦FUNCTION 

♦ 

♦COMPUTES  NEW  AVERAGED  DATA  PT.  X  OR  Y  COORDINATE  FROM  NEW  RAW  DATA  PT. 
♦COORD*  AND  PREV.  AVERAGED  DATA  PT.  COORD* 

♦NEW  =  3/4  PREV  ♦  1/4  RAW 
* 

* 

* 

♦CALL 

♦  RCS  SMOQTHAf  EEX I T 

* 

♦ 

* 

♦INPUT  REGISTERS 
♦ 

♦C(R6)  =  PREV  AVERAGED  X  OR  Y  COORD* 

♦C(R7)  =  NEW  RAW  X  OR  Y  COORD* 

♦ 

* 

♦ 

♦OUTPUT  REGISTERS 
♦ 

♦C ( R6 )  =  NEW  AVERAGED  X  OR  Y  COORD* 

♦ 

* 

* 

♦INTERNAL  REGISTERS.  R8 
♦ 

* 


USING 

REGS 

XR6»R6 

EXO 

EQU 

0 

06 

OSECT 

XR6 

DS 

OF 

SMOOTH 

BOX 

LR 

R8,R6 

SRA 

R  8  »  2 

SR 

R6,R8 

SRA 

R7,2 

AR 

R6»R7 

BEX  I  T 
END 

EXC 
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TCRNR 


♦FUNCTION 

* 

♦DETECTS  TIME-PAUSE  CORNERS  BASED  ON  NPTS,  THE  NC.  OF  RAW  DATA  POINTS 
♦WHICH  HAVE  OCCURRED  SINCE  THE  LAST  THINNED  DATA  POINT,  AND  UPDATES 
♦NTCUSP,  THE  NO.  OF  SUCH  CORNERS 

♦INDEX  CUSP=1  IS  TIME-CORNER  HAS  JUST  OCCURRED,  OTHERWISE  CUSP*0. 

* 

* 

* 

♦CALL 

♦  RCS  TCRNRA,IIl,EEXIT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R8 
* 

* 


USING 

REGS 

XR6, R6 

EXO 

EQU 

0 

D6 

DSECT 

XR6 

DS 

OF 

DS 

3F 

DS 

23H 

NT 

DS 

1H 

NTC 

DS 

1H 

DS 

1H 

DS 

20C 

DS 

3F 

DS 

1H 

DS 

IC 

CUSP 

DS 

1C 

DS 

1H 

NPTS 

DS 

IH 

DS 

IH 

DS 

56C 

DS 

2  IH 

DS 

IF 

DS 

6C 

DS 

IH 

DS 

IF 

DS 

20C 

DS 

17H 
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NT  CUSP  OS  LH 

PNPTS  CS  LH 

TCRNR  BOX 

♦TIME  CORNER  DETECTOR 
LH  R8,NT 

LA  R8,1(C,R8) 

STH  R8»NT 

CLI  NT+1 , X ' 02 ' 

BC  12 , CUSP I D 

LH  R8, PNPTS 

SLL  R8,2 

AH  R8  *  PNPTS 

AH  R8, PNPTS  R8=6*PNPTS 

CH  R8,NPTS 

BC  10, CUSPID 

CLI  CUSP,X*CC» 

BC  6, NOCUSP 

♦CUSP=0 

LH  R  8  »NTCU  SP 

LA  R8, 1 (C, R8 ) 

STH  R8,NTCUSP 

MVI  CUSP  »  X ' G 1 * 

LH  R8,NT 

STH  R8,NTC 

B  NOCUSP 

CUSPID  MVI  CUSP,X*CO* 

NCCUSP  LH  R8,NPTS 

CH  R8, PNPTS 

BC  10,NPTS0 

STH  R8, PNPTS 

NPTSO  XC  NPTS ( 2 ) »NPTS 

BEXIT  EXC 

END 


THIN 


♦FUNCTION 

* 

♦DETERMINES  IF  THE  CURRENT  DATA  PT.  X  OR  Y  COORDINATE  IS  FARTHER  FROM 
♦THE  PREV.  THINNED  DATA  PT.  X  OR  Y  COORD.  THAN  A  DISTANCE  DELTA. 

* 

* 

* 

♦CALL 
* 

* 


RCS  THINA,EEXIT 
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* 

* 

♦INPUT  REGISTERS 
* 

♦C(R6)  =  CURRENT  COORD 
♦C  ( ft  7  )  =  PREV  THINNED  COORD 
♦C { ft 8  )  =  DELTA 
♦ 

* 

* 

♦OUTPUT  REGISTERS 

* 

♦C  ( R7 )  =*  NEW  THINNED  COORD  -  CURRENT  DATA  PT  COORD ,  IF  SUFFICIENTLY  FAR 
♦C(R7>  =  PREV  THINNED  COORD  IF  NOT  FAR 
* 

* 

* 

♦  INTERNAL  REGISTERS*  R8  ,R9 

* 

* 


USING 

REGS 

XR6  »  R6 

EXO 

EQU 

0 

C6 

DSECT 

XR6 

DS 

OF 

THIN 

BOX 

LR 

R9tR6 

SR 

R9  »R7 

0  IFF 

LPR 

R9,R9 

MOIFF 

SR 

R9»  R  8 

BC 

12,THINl 

EXIT  IF  MDIFF  <,=  DEL 

LR 

R7  »  R6 

T ( J ) =  S { I )  IF  >  DEL 

THIN  1 

BEXIT 

END 

EXO 

TURNER 


♦FUNCTION 

♦ 

♦DETECTS  180  DEGREE  CHANGE  IN  STYLUS  DIRECTION  THAT  OCCURS  AFTER  A 
♦SINGLE  THINNING  DISTANCE 

♦IF  SUCH  A  TURN  IS  DETECTED,  TTURN+l  *  i  FOR  CLOCKWISE  TURN,  TTURN+L  =2 
♦FOR  COUNTERCLOCKWISE  TURN,  OTHERWISE  TTURN+I  =  0* 

* 

* 

* 
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♦CALL 

*  RCS  TURN ERA* II1*EEXIT 

♦WHERE  II  IS  AT  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

* 

* 

* 

♦INPUT  REGISTERS 
* 

♦CIR6)  =  II 

♦C(R9)  =  ANGLE  (AS  ENCODED  BY  'CHAREC') 

* 

* 

* 

♦INTERNAL  REGISTERS.  R7*  R8 
* 

* 

USING  XR6  *  R6 

EXO  ECU  0 

REGS 

D6  DSECT 

XR6  DS  OF 

DS  3F 

DS  8H 

PANG  CS  1H 

PACANG  DS  IH 

DS  16H 

CS  20C 

OS  3F 

DS  IH 

DS  2C 

CS  3H 

CS  56C 

DS  2  IH 

DS  IF 

DS  6C 

TTURN  DS  IH 

TURNER  BOX 

♦ANG  DO  ES  NOT  EC  PREV  ANG 

♦TEST  F  OR  180  DEG  TURN 

♦DOES  P  REV  ANG«PREV  ACCEPTED  ANG? 

LH  R7, PACANG 

CH  R7*  P ANG 

BC  8, NOTURN 

♦NO 

♦00  ANG  ?  PACANG  DIFFER  BY  2? 

SR  R7,R9 

LPR  R7,R7 

LA  R8  *  2 

CR  R7»R8 

BC  6*N0TURN 


♦YES 
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MS  DIR  ECTICN  OF  TURN  CLKWISE? 

♦  OR  COU  NTERCLOCKWISE? 

LR  R7,R9 

SH  R7»PANG 

LTR  R7»  R  7 

8C  2  ?  CCTURN 

♦POSSI8  LY  CLKWISE 
♦DOES  P  ANG  EQ  0? 

SR  R7,R7 

CH  R7» PANG 

BC  8»CCT1 

CTURN  MV  I  TTURN+1 , X*  0 1  * 

BC  15*TURNX 

♦POSSIB  LY  CCLKWISE 
♦DOES  A  NG  EC  0? 

CCTURN  SR  R7,R7 
CR  R7,R9 

BC  8, CTURN 

CCT 1  MV  I  TTURN+ 1 1  X ' 02  * 

BC  15*TURNX 

♦NOT  A  180  DEG  WITH  SINGLE  ANGLE 
NOTURN  MV  I  TTURN+1, X'OO' 

♦  EXIT 

TURNX  BEXIT  EXO 
END 


TRAVEC 


♦FUNCTION 

♦ 

♦COMPUTES  VECTOR  DIRECTION  (  1  OF  16)  IF  STYLUS  HAS  MOVED  A  DISTANCE 
♦GREATER  THAN  DELTA  (2,  4,  6,  OR  8  RASTERS). 

* 

* 

* 

♦CALL 

♦  RCS  TRAVECA , EEXI T 

♦ 

* 

* 

♦INPUT  REGISTERS 

♦ 

♦CtR7)  =  X  COCRO  OF  NEW  DATA  PT. 

♦C(R9)  =  Y  COORD  OF  NEW  DATA  PT. 

♦C(R10)  =  X  COORD  OF  ENO  PT.  OF  CURRENT  VECTOR  TRACK 
♦C(Rli)  =  Y  COORD  OF  END  PT.  OF  CURRENT  VECTOR  TRACK 
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♦  C l R 1 5  )  =  1/2  DELTA 

♦ 

* 

* 

♦OUTPUT  REGISTERS 
* 

♦IF  STYLUS  HAS  MOVED  X  OR  Y  DISTANCE  GREATER  THAN  DELTA 

♦  CIRC)  =  DIRECTION  CODE  IX'C*~X»F*) 

♦  CIRIO)  =  X  ENC  PT.  OF  UPDATED  VECTOR  TRACK 

♦  C(Rll)  =  Y  ENC  PT.  OF  UPDATED  VECTOR  TRACK 

♦OTHERWISE 

♦  C(RO)  =  X'O* 

♦  CIRIO),  CIR11)  NOT  UPDATEO 

♦ 

* 

* 


♦INTERNAL  REGISTERS  Rfc,  R8,  R14 
* 

* 


USING 

XR6, R6 

EXO 

ECU 

C 

REGS 

06 

OSECT 

XR6 

CS 

OF 

TRAVEC 

BOX 

' 

LA 

RO, 16  RAST/DIR  CONSTANT 

SR 

R 14, R 14 

QUADRANT  CODE 

SR 

R7,R 10 

XII)  -  X  I L ) 

BC 

10 , TRAV  1 

LA 

R14, 4 1 0 »  R14 1 

QUAD  2  OR  3 

LPR 

R7,R7 

ABS  DX 

TRAV1 

SR 

R9 , R  1 1 

YII )  -  Y ( L ) 

BC 

10  »  TR AV2 

LA 

R14,8(C,R14) 

QUAD  3  OR  4 

LPR 

R9,R9 

ABS  DY 

TRAV2 

LR 

R8,R7 

SR 

R6,R6 

LH 

R7, TRAST 

MR 

R6,R  15 

LR 

R6,R7 

LR 

R7,R8 

CR 

R  7  ,  R  6 

BC 

11,  TRAV  3 

CR 

R9,R6 

BC 

4, TRAVfi 

TRAV3 

CR 

R  7,  R9 

ABS  DX  AND  DY 

BC 

8, TRAV4 

EQUAL 

BC 

4, TRAV5 

DY  >  DX 

SLL 

R9,2  DX 

>  DY 

SR 

R8,R8 

41 ABS  DY) 

DR 

R  8  ,  R  7 

41 ABS  DY)  /  ABS 
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TRAV5 


TRAV4 

TRAV6 


TRAV7 


TRAV8 

TRAVK4 

TCUAO 


TX  IN 


TYIN 


LA  R9*1(0*R9)  1/2  ROUNO 

SRL  R9»  1  RESULT/2 

8C  15»TRAV6 

SLL  R7»  2  4{ A8S  DXi 

SR  R6,R6 

CR  R6.R9  4( ABS  DX)  /  ABS  DY 

LA  R7»1(C»R7)  1/2  ROUND 

SRL  R7* l  RESULT  /2 

LNR  R9,R7 

A  R9,TRAVK4 

BC  15.TRAV6 

LA  R9 1 2 

A  R9 *  T QUAD  C  R 14 ) 

LPR  R14,R9 

CR  R  1 4  *  R  C 

BC  4*  TR AV7 

SR  R14*  R14 

LR  RO*R 14 

SLL  R 14*  1 

SR  R6*R6 

LH  R7*TXIN(R14) 

HR  R6  »R 15 

AR  R10*R7 

SR  R6  *  R6 

LH  R7»TYIN(R14I 

HR  R6»R 15 

AR  R11,R7 

BEXIT  EXO 
DC  F  *  4* 

DC  F *  0* 

CC  F  *— 8  * 

DC  F*— 16* 

CC  F*  8* 

CS  OH  TABLE  FOR  2  RAST  VEC 

CC  H*8* 

DC  H*  8* 

DC  H*  8 * 

DC  H • 4 ' 

CC  H*  0 * 

DC  H»-4* 

DC  H*  — 8  * 

CC  H*  — 8  * 

DC  H*-8* 

DC  H  *  —  8  * 

CC  H*  — 8  * 

CC  H*— 4* 

CC  H ' 0  * 

CC  H*  4* 

DC  H*  8* 

CC  H*  8* 

CS  OH  TABLE  FOR  2  RAST  VECTORS 


-86- 


DC 

H*C* 

CC 

H  •  A  • 

• 

CC 

H*  8* 

CC 

H*  8* 

CC 

H*  8* 

CC 

H*  8* 

DC 

H*  8* 

DC 

H*4* 

DC 

H'O* 

DC 

H 4  * 

CC 

H'-8* 

CC 

H'-8* 

DC 

H*  — 8* 

CC 

H*-8» 

DC 

H'-8* 

CC 

H*-4‘ 

TRAST 

DC 

H*  8* 

RAST  SIZE  OF  2  RAST 

END 

REC 


REC  Function 


♦  *  REC*  PERFORMS  A  FEW  SIMPLE  TESTS,  BUT  MOSTLY  ACTS  AS  A  LINK  BETWEEN 
♦•CHAREC*  (WHICH  CALCULATES  A  SET  OF  FEATURES)  AND  THE  PROCEDURES 
* ( * INTERP*  ANC  OTHER  RCS'S)  WHICH  TEST  THESE  FEATURES,  OR  BETWEEN 
*• INTERP'  (WHICH  PERFORMS  MOST  OF  THE  TESTS)  AND  THE  OTHER  RCS'S. 

♦•RFC*  HAS  AN  ORDERED  LIST  OF  THE  FEATURES,  AND  IS  GIVEN  THE  RELATIVE 
♦ACCRESS  OF  THE  HEAD  OF  THE  LIST.  IT  RETURNS  A  CHARACTER  CODE  TO 
♦•CHAREC*.  THE  ONLY  PARAMETERS  MODIFIED  BY  *REC*  AND  ITS  RCS'S  ARE  *P* 
♦•PAD*,  ANC  (ONLY  FOR  COMMA  AND  SOME  SCRIPT  CHARACTERS)  THE  Y 
♦COORDINATE  OF  THE  CHARACTER  CENTER. 


REC  Call 


♦  INST  AREC,RECA,III,II1,EEXIT 

♦WHERE  AREC  IS  A  LINKAGE  BETWEEN  CHAREC'S  CGNTEXT  AND  REG'S  CONTEXT 

♦  RECA  IS  A  LINK  TO  REC 

♦  II  IS  AT  THE  TOP  OF  CHAREC • S  INTERNAL  PARAMETER  LIST 

♦  EXIT  EXIT  IS  THE  ONLY  EXIT 

♦ 

♦ 


RE  C  Sequence  of  Information  Processing 


****TABLE  RE-ENTRY**** 

* 

*LIST  OF  • INTERP*  LABELS  EQU'D  TO  CODES 
♦USED  FOR  ENTERING  'INTERP*  RCS 
* 

♦♦♦♦RETURNS**** 

* 

*L I  ST  OF  BRANCHES  TO  »REC'  LABELS 

♦USED  FOR  RETURNING  TO  *REC'  FROM  'INTERP* 

♦ 

**** INITIAL  COOE**** 

* 

♦INITIALIZE 

*  IF  PERIOD  ,  SET  R8,  GO  TO  CALL  INTERP 

*  I F  NOT  SINGLE  STROKE,  GO  TO  SET-UP  TABLE  RE-ENTRY 
♦IF  CHAR  IS  NOT  LARGE,  CALL  ' TI LOT •  TO  TEST  FOR  TILDA 

*  IF  NOT  TILDA,  GO  TO  SET-UP  TABLE  RE-ENTRY 

*  IF  TILDA,  GO  TO  EXIT 

♦IF  CHAR  IS  LARGE,  CALL  ' SYMT*  TO  TEST  FOR  AND  RECOGNIZE  GEOMETRIC  SYM. 

*  IF  NOT  GEOMETRICAL  SYMBOL,  GO  TO  SET-UP  TABLE  RE-ENTRY 

*  IF  GEOMETRICAL  SYMBOL,  GO  TO  EXIT 

* 

♦♦♦♦COMPUTATIONAL  SUBROUTINES**** 

* 

♦CALL  ON  AN  RCS  TO  MAKE  A  TEST 

*  RETURN  TO  EXIT  WITH  A  CHARACTER 

*  OR  TO  IN-LINE  CODE 

*  OR  TO  SET-UP  TABLE  RE-ENTRY 

* 

****SET-UP  TABLE  RE-ENTRY**** 

* 

♦SET  R8  TC  ADDRESS  OF  TABLE  RE-ENTRY  LABEL 
♦GO  TO  CALL  INTERP 
* 

**** IN-LINE  CCDE**** 

* 

♦MAKE  TESTS 

♦GO  TO  SOMEPLACE  IN  »REC' 

* 

♦♦♦♦CALL  INTERP**** 

* 

♦STORE  R8  IN  CUSP 
♦SET  UP  R14,R 15 
*CALL  'INTERP* 

*  IF  VALID  EXIT,  ENTER  RETLRNS  TABLE  BASED  ON  INDEX  =  R8 

*  IF  ERROR  EXIT,  GO  TO  CALL  INTERP  WITH  R8  *  ADDRESS  OF  'DON'T  KNOW* 

*  LABEL. 
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****gX IT**** 

* 

♦EXIT  TO  • CHAREC* 


REC  Program  Listing 


USING  XRlt R 1 
USING  XR3,R3 
USING  XRX » R6 
REGS 
SVCS 


DSECT1 

DSECT 

XRI 

CS 

OF 

REGS 

CS 

3F 

BANK 

CS 

IF 

INDEX 

DS 

IF 

DS 

IF 

EXIT 

ECU 

0 

0SECT3 

DSECT 

XR3 

CS 

OF 

SCRTCH 

DS 

IF 

CCNC 

DS 

IF 

DATA 

DSECT 

XRX 

CS 

OF 

11 

CS 

IF 

PAD 

CS 

IF 

CODE 

DS 

IF 

XS 

DS 

1H 

YS 

CS 

1H 

XT 

DS 

1H 

YT 

DS 

1H 

CX 

CS 

1H 

CY 

DS 

1H 

MDX 

DS 

1H 

POY 

CS 

1H 

PANG 

DS 

IH 

PACANG 

DS 

IH 

N 

CS 

1H 

SN 

DS 

IH 

PUP 

CS 

IH 

INKIND 

DS 

IH 

PCUAD 

CS 

IH 

8R56 

CS 

IH 

CXC 

DS 

IH 

CYC 

CS 

IH 

XRC 

DS 

IH 

XLC 

DS 

IH 

YTC 

DS 

IH 

YBC 

CS 

IH 

ASPR 

DS 

IH 

NT 

CS 

IH 

NTC 

CS 

IH 

SCRATCH 
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INKC 

CS 

IH 

XYE 

DS 

IOC 

XYS 

CS 

IOC 

WIOTH 

DS 

IH 

HEIGHT 

DS 

IH 

DS 

2F 

YCENT 

DS 

IH 

PCHAR 

DS 

1C 

CUSP 

DS 

1C 

NCUSP 

DS 

IH 

NPTS 

CS 

IH 

DEL 

CS 

IH 

P 

CS 

1C 

CHAR 

DS 

1C 

TEMP 

DS 

1C 

TINK 

OS 

5C 

XSP 

DS 

IOC 

YSP 

DS 

IOC 

XEP 

DS 

IOC 

YEP 

CS 

IOC 

ALXYJ 

DS 

8C 

XL 

DS 

IH 

YL 

CS 

IH 

XLC 

DS 

IH 

YLC 

CS 

IH 

*AX3  THRU  AX02  ARE  USED  AS  NTCUSP ,NYMAX ,NYMIN,  QYMAX,  AND  QYMIN  BY  REC 


AX3 

DS 

IH 

AX2 

DS 

IH 

AX  1 

DS 

IH 

AX 

DS 

IH 

AX23 

DS 

IH 

AX  12 

DS 

IH 

AXO 1 

CS 

IH 

AX02 

DS 

IH 

NC 

DS 

IH 

C 

DS 

IH 

CYM 

DS 

IH 

cxs 

CS 

IH 

CYS 

DS 

IH 

XRS 

CS 

IH 

XLS 

CS 

IH 

YTS 

CS 

IH 

YBS 

DS 

IH 

CENT 

CS 

IF 

MVC 

DS 

6C 

TTURN 

CS 

IH 

TURN 

OS 

IF 

XC 

CS 

IOC 

YC 

CS 

IOC 

DO 

DS 

IH 

Cl 

DS 

IH 
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02 

03 

04 

05 

06 

07 

♦BEWARE, 
08 
09 
010 
Oil 
012 
013 
014 
C 1 5 
ON 

NTCUSP 

NTCSP1 

PNPTS 

PYMAX 

PYMIN 

NYMAX 

NYMXl 

NYMIN 

NYMN1 

YM  AX 

YMIN 

CYMAX 

CYMIN 

CYMX  1 

QYMN1 

PYMXX 

PYMNX 

YMAXX 

YM  I  NX 

♦BEWARE, 

XYSP 

XYEP 

* 

♦ 

♦♦♦♦TABLE 

* 

* 

SPER 

SXHBL 

$4 

SK 

A  A  A  A 
KVXYM 
PADEX 
TPLUSM 


OS  1H 
OS  1H 
OS  1H 
OS  1H 
CS  1H 
OS  1H 

DATA  BELOW  07  CANNOT  BE  REFERRED  TO  BY  TABLE  MACROS 


OS 

1H 

CS 

1H 

CS 

1H 

OS 

1H 

CS 

1H 

OS 

1H 

OS 

1H 

CS 

1H 

OS 

IH 

EQU 

AX3 

OS 

1H 

CS 

1H 

CS 

1H 

DS 

1H 

EQU 

AX2 

DS 

1H 

EQU 

AX  1 

CS 

1H 

DS 

10H 

EQU 

YMAX+1C 

ECU 

AX 

ECU 

QYMAX+5 

OS 

IOC 

EQU 

QYMX1+5 

CS 

1H 

OS 

1H 

OS 

10H 

EQU 

YM AX  X+ 10 

CATA  BELOW  07  CANNOT  BE  REFERRED  TO  BY  TABLE  MACROS 
EQU  XYS-DATA  XYS  DSECT(R6) 

EQU  XYE— DATA  X YE  DSECT(R6) 


RE-ENTRY**** 


EQU  C 
EQU  1 
EQU  2 
EQU  3 
EQU  4 
EQU  5 
EQU  6 
EQU  7 
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SBM5 

ECU 

8 

SJMU 

ECU 

9 

SUM JU 1 

ECU 

10 

SMI 

ECU 

11 

SXMSTR 

ECU 

12 

S0MCQ8 

ECU 

13 

SCPNU 

ECU 

14 

Rse 

ECU 

15 

RSC 

ECU 

16 

RSE 

ECU 

17 

RSF 

ECU 

18 

RSG 

ECU 

19 

RSI 

ECU 

20 

RSJ 

ECU 

21 

RSL 

ECU 

22 

RSM 

ECU 

23 

RSN 

ECU 

24 

RSG 

ECU 

25 

RSR 

ECU 

26 

RSS 

ECU 

27 

RSU 

ECU 

28 

RSV 

EQU 

29 

RSW 

ECU 

30 

RSY 

EQU 

31 

RSZ 

ECU 

32 

SA 

ECU 

33 

SG 

ECU 

34 

SM 

ECU 

35 

SNN 

EQU 

36 

SP 

ECU 

37 

SR 

ECU 

38 

su 

EQU 

39 

so 

EQU 

40 

S8 

EQU 

41 

SSTAR 

ECU 

42 

SSCRUB 

ECU 

43 

DK 

ECU 

44 

RSA 

ECU 

45 

SE 

EQU 

46 

REC  PRCCS  CLEAR=3,CNTX=6,AUT0=2,PR0LG=SINSt ID=8000021C 


AHTEST 

OC 

V ( AHSTR  l ) 

KNYT 

DC 

V(KNYTST) 

KNY1TA 

DC 

V(KNYIT) 

KVXYTA 

DC 

V(KVXYT) 

MWT  A 

DC 

V(MWT) 

PTST 

DC 

V(PSTEST) 

SYMTA 

DC 

V(SYMT) 

TILCTA 

DC 

V(TILDT) 

TPXYA 

DC 

V(TPXY) 

VERT 

CC 

V ( VERTST ) 

VFI 

DC 

VIBFI  ) 

VSDP 

DC 

V(BSDP) 

VSMNW 

DC 

V(BSMNW) 

VSRPRM 

DC 

V ( BSRPRM  ) 

VSS  w 

DC 

V(BSSM) 

VSVM 

DC 

V(BSVM) 

VTESTI 

DC 

V ( BTEST1 ) 

VTEST3 

DC 

V( BTEST3 ) 

VTERP 

DC 

V( INTERP) 

VHITE 

DC 

V(BHITE) 

VRAZE 

CC 

V (RAZE ) 

♦ 

* 


****RETURNS**** 

♦ 


♦ 

RETURNS 


ECU 

* 

8C 

15 

f  XAHSTR 

8C 

15 

»XKNY 

BC 

15 

tXFI 

BC 

15 

,XKVXY 

BC 

15 

*  XMW 

BC 

15 

*XMW  IN 

BC 

15 

t  XMW  1 

BC 

15 

tXPOST 

BC 

15 

»  XRECD 

BC 

15 

»XSDP 

BC 

15 

t  XSMNW 

BC 

15 

tXSMIM 

BC 

15 

f  X  SRPRM 

BC 

15 

tXSSM 

BC 

15 

*  X  SVM 

BC 

15 

»  XTEST1 

BC 

15 

»  XTEST3 

BC 

15 

*  XTPLUS 

BC 

15 

.XSTRLC 

BC 

15 

t  XSALCS 

BC 

15 

*  XSG8LC 

BC 

15 

tXSMLCN 

BC 

15 

» X  SCBOU 

BC 

15 

*  XSNLC 

BC 

15 

t  X  SPLC 

BC 

15 

»  XSRLC 

BC 

15 

t X  S8LC 

BC 

15 

*  X  SULC 

BC 

15 

t  X  S4LC 

BC 

15 

»  X  SCPEL 

BC 

15 

*  XSCPMW 

BC 

15 

tXSCPYZ 

BC 

15 

•  XSCPBS 

BC 

15 

♦XSBVMN 

BC 

15 

.XRAZE 
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BC  15»  XS8LCV 

BC  15»XSULC  I 

BC  L5»XS4MK1 

BC  15,  XSELCA 

♦ 

* 

♦♦♦♦INITIAL  CCDE***^ 

♦ 

♦ 

SINS  PRCLG 

L  R6  »  BANK 

♦MOVE  CATA  USED  BY  TABLE  MACROS  ABOVE  FF  IN  DATA  BANK 
MVC  NTCUSP(2)»NTCSPI 

MVC  NYMAX { 2 ) »NYMX l 

MVC  NYMINI2)  ,NYMN1 

MVC  QYMAXIIC  )  ,QYMXl 

CLI  N+l, X*  CC* 

BC  7.SYMC 

LA  R8.SPER 

BC  15, START 

SYMO  EQU  ♦ 

CLI  SN  +  l » X ' 0  I  * 

BC  7.REENTR 

TILTST  EQU  * 

LH  R15, HEIGHT 

SLL  RI5,  I 

CH  R15, DYC 

BC  12, LARGE 

CH  R 15, DXC 

BC  12,LARGE 

♦CHARAC  TER  IS  NOT  LARGE 
♦TEST  F  OR  TILDA 

RCS  TILDTA,EREENTR»EXRECD 

♦POSSIB  LY  A  FLOW  CHART  SYMBOL 
♦IS  N  A  T  LEAST  2? 

LARGE  CLI  N+l, X'C2' 

BC  4,REENTR 

♦RECOGN  IZE  FLOW  CHART  SYMBOL 

RCS  SYMTA,EREENTR,EXRECD 

♦ 

♦ 

♦♦♦♦COMPUTATIONAL  SUBRCUT I NE $♦♦♦♦ 

♦ 

♦ 


XAHSTR 

RCS 

AHTEST»EXRECD 

XFI 

ECU 

♦ 

RCS 

VF I , EXRECD 

XKNY 

RCS 

KNYT ,EXRECD 

XKNYl 

RCS 

KNY1TA, EXRECD 

XKVXY 

RCS 

KVXYTA, EXRECD 

XMWIN 

RCS 

MWTA, EXRECD 
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XPOST 

ECU 

* 

RCS 

PTST  »EXRECD 

XSDP 

ECU 

* 

RCS 

VSDP  *  EXRECO 

XSM1M 

ECU 

* 

RCS 

VERT,EXSMl*EXKVXYM»  EXPLUSM, EXPADEX 

XSRPRM 

ECU 

♦ 

RCS 

VSRPRM, EXRECO, EXSDP, EXPOST 

XSSM 

ECU 

* 

RCS 

VSSM, EXRECO 

XSVM 

ECU 

# 

RCS 

VSVM, EXRECO *EXSJMU,EXMWl,EXKNYl,EXSOMO,EXSMJUl 

XTEST1 

ECU 

* 

RCS 

VTEST1,EX8LCG»£XSSM 

XTEST3 

ECU 

* 

RCS 

VTEST3,EXRECD»EXSBM5 

XTPLUS 

RCS 

TPXYA, EXRECO 

XSCPEL 

ECU 

* 

RCS 

VHITE, EXLEU. EXHLO 

XSMLCN 

ECU 

* 

RCS 

VHITE, EXSCPNU,EXSM 

XSCPHW 

ECU 

* 

RCS 

VHITE, EXLMWtEXSSCRB 

XSALCS 

ECU 

* 

RCS 

VHITE, EXRSS,EXSA 

XSCPBS 

ECU 

* 

RCS 

VHITE, EXRSS.EXRSB 

XMLC 

ECU 

* 

RCS 

VHITE, EXLMW.EXHMY 

XSNLC 

ECU 

* 

RCS 

VHITE, EXLOV,£XHBJN 

XSMNW 

ECU 

* 

RCS 

VSMNW, EXRECO, EXMLC,EXRAZE 

XSRLC 

EQU 

* 

RCS 

VHITE, EXRSN,EXSR 

XSPLC 

ECU 

* 

RCS 

VHITE, EXRSR,EXSPP 

XSULC1 

ECU 

* 

, 

RCS 

VHITE, EXRSU,EXSU 

XS4LC 

ECU 

* 

RCS 

VHITE, EXRSE.EXRSL 

XS8LC 

ECU 

* 

RCS 

VHITE, EXLVO,EXS8 

XSULC 

ECU 

* 

RCS 

VHITE,EXRSN»£XHRU 

XSTRLC 

ECU 

* 

RCS 

VHITE, EXCS, EXSSTAR 

XSBVMN 

ECU 

* 

RCS 

VHITE, EXLMNV,EXHBL 

XSCBCU 

ECU 

* 

RCS 

VHITE, EXLGU.EXHBM 

XSG8LC 

EGU 

4 

RCS 

VHITE,EXRSO,EXSG8 

XS8LCV 

EGU 

4 

RCS 

VHITE,EXRSV,EXS8 

XSELCA 

ECU 

4 

RCS 

VHITE.EXRSA.EXSE 

XRAZE 

EGU 

4 

RCS 

VRAZE, EXRECO 

4 

* 

****SET-UP  TABLE  RE-ENTRY**** 

* 

* 

REENTR 

ECU 

4 

L 

R4. INDEX 

L 

R7»  0 ( R4 ) 

STC 

R7,TEMP 

LA 

R8  *  A AAA 

BC 

15, START 

XKVXYM 

EGU 

4 

LA 

R8.KVXYM 

BC 

15, START 

XPACEX 

EQU 

4 

LA 

R8,PACEX 

BC 

15, START 

XPLUSM 

EGU 

4 

LA 

R8 , TPLUSM 

BC 

15, START 

XSBM5 

EQU 

4 

LA 

R8, SBM5 

B 

START 

XSJMU 

EGU 

4 

LA 

R8,SJMU 

B 

START 

XSMJU1 

ECU 

4 

LA 

R8, SUMJU1 

B 

START 

XSMi 

EQU 

4 

LA 

R8 , SMI 

BC 

15, START 

XSXMST 

LA 

R8,SXMSTR 

B 

START 

XSOMC 

EQU 

4 

LA 

R8, SCMQQ8 

B 

START 

XHBL 

LA 

R8 , SXHBL 

B 

START 

XSCPNU 

LA 

R8.SCPNU 

B 

START 

XRSA 

LA 

R8,RSA 

B 

START 
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XRS8 

XRSC 

XRSE 

XRSF 

XRSG 

XRS  I 

XRSJ 

XRSL 

XRSM 

XRSN 

XRSC 

XRSR 

XRSS 

XRSU 

XRSV 

XRS  W 

XRSY 

XRSZ 

XSA 

XSE 

XSG 

XSM 

XSNN 

XSPP 

XSR 


LA  R8»RS8 

8  START 

LA  R8  »  R  SC 

B  START 

LA  R8*RSE 

B  START 

LA  R8*RSF 

B  START 

LA  R8,RSG 

8  START 

LA  R8«  RS I 

8  START 

LA  RStRSJ 

B  START 

LA  R8  » RSL 

B  START 

LA  R8*RSM 

B  START 

LA  R8  tRSN 

B  START 

LA  R8fRS0 

B  START 

LA  R8  »RSR 

B  START 

LA  R8.RSS 

B  START 

LA  R8,RSU 

8  START 

LA  R8,RSV 

B  START 

LA  R8 ♦ RSW 

8  START 

LA  R8*RSY 

B  START 

LA  R8.RSZ 

6  START 

LA  R8tSA 

8  START 

LA  R  8  »  SE 

B  START 

LA  R8 1  SG 

B  START 

LA  R8*SM 

B  START 

LA  R8  »  SNN 

8  START 

LA  R8,SP 

B  START 

LA  R8t  SR 

B  START 

LA  R8»SU 


XSU 


xso 

XS8 

XSSTAR 

XSSCRB 

* 

* 

****  IN' 
* 

* 

XMW 

XMW1 

XS4MK1 

K4 

XSKX 

XHBM 

XLMW 

XHMY 

XLCV 


B 

START 

LA 

R8»  SC 

B 

START 

LA 

R8,S8 

B 

START 

LA 

R8.SSTAR 

B 

START 

LA 

R8»  SSCRUB 

B 

START 

LINE  CODE**** 


ECU  * 

LA  R 1 3*  3 

B  XMW I N 

ECU  * 

LA  R13,2 

B  XMW  I N 

SR  R 1 5f  R  1 5 

LA  R13*  2 

LA  R7»0(R6»R15) 

TM  XYEP  +  HR7),X»C3* 

BC  l »  XSKX 

8XLE  R15*  R13»K4 

LA  R8,S4 

B  START 

TM  XYSP  +  KR7)  ♦X'CF* 

BC  8,X$XMST 

LA  R8t  SK 

B  START 

ECU  * 

TM  XYE+ 1 »  X  *  OC  * 

BC  1  *  XSM 

B  XRSB 

TM  XYE+ 1 »  X  *  CC  * 

BC  8.XRSW 

B  XRSM 

TM  XYE+ 1 »  X  *  CC  * 

BC  12  »  XRSY 

B  XSM 

LH  R7,XRC 

SH  R7,XLC 

SRL  R7t2  1/4  CHAR  WIDTH 

LH  R8»XEP 

SH  R8» YMAXX 

LPR  R8»R8 

CR  R8,R7 

BC  4  »  XR  SO 

B  XRSV 
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XHBJN 

TM 

XYS+ 1 »  X • CC ' 

BC 

12 , XR  SF 

TM 

XYE+ 1 , X ' CC • 

BC 

5, XRS8 

B 

XSNN 

XHLO 

TM 

XYE+1, X*  03* 

BC 

8 , XR  SL 

B 

XSO 

XHRU 

ECU 

* 

*U  IF  2ND  MAX  IN  RIGHT  1/2,  OTHERWISE  R 
LH  R8»DXC 

SRL  R8 , 1 

LH  R7 , XRC 

SR  R7 , R  8 

CH  R7» YMAXX+2 

BC  2 , XSR 

B  XSU 

XSCPYZ  ECU  * 

LH  R7*YMINX+2 

CH  R7,YMAXX 

BC  A, XRSZ 

B  XRSY 

XCS  EQU  * 

*C  IF  2ND  OR  3RD  ANGLE  IS  C 


TM 

CODE , X *  3C  * 

BC 

8, XRSC 

TM 

CODE , X  *  OC* 

BC 

8, XRSC 

B 

XRSS 

X8LCG 

CLI 

CODE , X ' B  7 • 

BC 

8, XRSG 

B 

XRECD 

XLEU 

CLI 

N+1»X*C5' 

BC 

2, XR  SU 

B 

XR  SE 

XLMNV 

EQU 

* 

CLI 

N+l , X*  C5  * 

BC 

8, XNV 

BC 

4, XRSE 

CLI 

N+ 1 , X  *  C6 • 

BC 

2 , XR  SM 

B 

XSCPNU 

XNV 

TM 

XYE+1, X*  08* 

BC 

1, XSCPNU 

B 

XRSV 

XLCU 

TM 

XYE+1, X*08* 

BC 

8 , XR  SO 

B 

XRSU 

XLVG 

TM 

CODE , X*  C8* 

BC 

1 , XR  SO 

B 

XRSV 
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XSG8  TM  XYE+ 1  *  X  *  OC  * 

EC  8,XS8 

B  XSG 

* 

* 

♦♦♦♦CALL  INTERP^*** 

* 

* 

♦  THIS  IS  THE  INTERPRETER  R8  IS  THE  ' INSTRUCTION  COUNTER' 

♦  CONO  CONTAINS  THE  'CCNDITION  CODE' 

♦ 

START  ECU  ♦ 

STC  R8*CUSP 

LA  R 14»C0ND 

LA  R15»  SCRTCH 

RCS  VTERPtEEXOtEEXl  CALL  THE  INTERPRETER 

EXO  ECU  ♦ 

ST  R8  »  SCRTCH 

SWTCH  INOEX=SCRTCH»  TABLE=RE TURNS 
EX  1  ECU  ♦ 

LA  R8 ♦ OK 

BC  15t  START  SIGNAL  NOT  UNDERSTOOD 

* 

* 

♦  ♦♦♦EX  I !♦♦*♦ 

* 

♦  * 

XRECD  ECU  ♦ 

EPLOG  EXIT 
END 


INTERP 


INTERP  Function 


♦'INTERP'  PERFORMS  SEQUENCES  OF  TESTS  ON  ENCODED  1-BYTE  FEATURES 
♦THEREBY  INCLUDING  NEARLY  ALL  OF  THE  OEC I SIGN-MAK ING  TREE  STRUCTURE. 
♦•INTERP'  IS  ENTERED  VIA  'REC*  AND  CALLS  RCS'S  (WHICH  PERFORM  THE  MCRE 
♦  COMPLICATED  TESTS)  VIA  *  REC  * •  A  'TABLE'  MACRO  (DESCRIBED  BELOW)  IS 
♦USED  TG  PERFCRM  THE  TESTS. 


INTERP  Call 
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* 

*  RCS  INTERPA*EVALIC»EERROR 

*  WHERE  IMERPA  IS  A  LINK  TO  INTERP 

*  EXIT  VALID  IS  THE  NORMAL  EXIT 

*  EXIT  ERROR  IS  THE  ERROR  EXIT 


INTERP  Sequence  of  Information  Processinc 


**** INTERPRETER**** 

* 

*  INTERPRETER  FOR  'TABLE*  MACRO 

♦ 

♦  ★♦♦TABLE  EX  ITS**** 

* 

*L I  ST  OF  *  REC*  LABELS  EQU'O  TO  COOES 
♦USED  FOR  RETURNING  TC  'REC*  ROUTINE 
* 

♦♦♦♦table  tests**** 

* 

♦CALLS  ON  THE  'TABLE'  MACRO  TO  PERFORM  SEQUENCES  OF  TESTS  ON  (OR  MOD¬ 
IFICATIONS  OF)  ENCODED  I-BYTE  FEATURES.  THE  CALL  HAS  THE  FOLLOWING 
♦FORM: 

*  LABEL  TABLE  /OP l » P I , C I/, C 1 1 , L 1 1 , C 12 , L12 , . . . ,C IK , L1K , /0P2 , P2 , C2/ , C2  I  ,X 

*  L2 1 , C22 ,  . 

♦WHERE  CONTINUATION  TO  NEXT'  CARD  IS  INDICATED  BY  A  NON-BLANK  COLUMN  72 

*  OPI  IS  AN  ABBREVIATED  OP  CODE 

*  TM  =  TEST  UNDER  MASK 

*  MV  -  MOVE  IMMEDIATE 

*  N I  *  AND  IMMEDIATE 

*  CL  =  COMPARE  LOGICAL  IMMEDIATE 

*  Cl  *  OR  IMMEDIATE 

*  X2  *  EXCLUSIVE  OR  IMMEDIATE 

*  TR  =  TRANSLATE 

*  SS  =  SWITCH 

*  EX  =  EXIT  FROM  TABLE 

*  IF  CPI  =  TR 

*  PI  =  THE  TRANSLATION  INDEX 

*  Cl  =  CC 

*  CIJ  =  C 

*  LI J  =  START  OF  A  LIST  OF  OC • S 

*  IF  OPI  =  SS 

*  PI  =  TEMP 

*  Cl  =  OC 

*  CIJ  =  0 

*  LIJ  =  START  OF  LIST  OF  BRANCHES 

*  IF  CPI  =  EX 

*  PI  =  A  'REC'  LABEL 

*  Cl  =  0 

*  CIJ, LIJ  ARE  OMITTED 
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*  OTHERWISE  _ . 

*  PI  »  THE  FEATURE  TO  BE  TESTED  OR  MODIFIED  (ONLY  'P',  'PAD*,  OR 

*  'CHAR*  MAY  BE  MODIFIED) 

*  Cl  =  THE  2  CHARACTER  I-BYTE  NUMBER  WHICH  PI  IS  TESTED  AGAINST  OR 

*  MCOIFIED  BY 

*  CIJ  =  THE  CONDITION  CODE  UNDER  WHICH  THE  SEQUENCE  OF  CONTROL 

*  BRANCHES  TO  LABEL  LZJ 

* 

****SET-UP  CHARACTER  CODE**** 

* 

♦MOVE  CHARACTER  CODE  INTO  'CHAR* 

♦BRANCH  TO  THE  SET  OF  ESCAPES 
♦ 

♦♦♦♦PAD  TABLE**** 

* 

♦  LIST  OF  BRANCHES  TG  • INTERP  *  LABELS 

♦USED  FOR  ENTERING  'INTERP*  BASED  ON  VALUE  OF  'PAO* 

♦ 

*♦*♦4  DIRECTION  TABLE**** 

* 

♦LIST  OF  BRANCHES  TO  'INTERP*  LABELS 

♦USED  FOR  ENTERING  'INTERP*  BASED  ON  THE  VALUES  ON  THE  FIRST  FOUR 
♦DIRECTIONS  IN  THE  DIRECTION  SEQUENCE  AS  ENCODED  BY  »ANG4» 

* 

♦♦♦♦SET  OF  ESCAPES**** 

♦ 

♦EXITS  FROM  ‘INTERP’  TO  *REC* 

♦ 

♦♦♦♦ENTRY  SWITCH**** 

♦ 

♦LIST  OF  BRANCHES  TO  'INTERP*  LABELS 
♦USED  FOR  ENTERING  'INTERP*  FROM  *REC* 


INTERP  Program  Listing 


TM 

USING 

REGS 

ECU 

XRX»R6 

X »  9 1  * 

TEST  UNDER  MASK 

MV 

EQU 

X '  92  * 

MOVE  IMMEDIATE 

N I 

EQU 

X  •  94 ' 

AND  IMMEDIATE 

CL 

ECU 

X*  95  * 

COMPARE  LOGICAL  IMMEDIATE 

01 

ECU 

X  •  96  • 

OR  IMMEDIATE 

X2 

EQU 

X  •  97  » 

EXCLUSIVE  OR  IMMEDIATE 

TR 

EQU 

X '  99  * 

TRANSLATE 

SS 

EQU 

X  •  SA  • 

SWITCH 

EX 

ECU 

X  •  9B  • 

EXIT  THE  TABLE 

CATA 

XRX 

CSECT 

DS 

OF 

11 

DS 

IF 

PAD 

CS 

IF 

CODE 

DS 

IF 

XS 

CS 

1H 

YS 

CS 

1H 
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XT 

CS 

IH 

YT 

DS 

1H 

DX 

CS 

LH 

CY 

CS 

IH 

MOX 

CS 

IH 

MDY 

CS 

IH 

PANG 

CS 

IH 

PACANG 

CS 

IH 

N 

DS 

IH 

SN 

DS 

IH 

PUP 

CS 

IH 

INKIND 

CS 

IH 

PCUAD 

CS 

IH 

8R56 

CS 

IH 

DXC 

DS 

IH 

DYC 

CS 

IH 

XRC 

CS 

IH 

XLC 

CS 

IH 

YT  C 

DS 

IH 

YBC 

DS 

IH 

ASPR 

DS 

IH 

NT 

DS 

IH 

NT  C 

CS 

IH 

INKC 

DS 

IH 

XYE 

CS 

IOC 

XYS 

CS 

IOC 

WIDTH 

CS 

IH 

HEIGHT 

CS 

IH 

DS 

2F 

YCENT 

CS 

IH 

PCHAR 

DS 

1C 

CUSP 

CS 

1C 

NCUSP 

DS 

IH 

NPTS 

CS 

IH 

CEL 

DS 

IH 

P 

CS 

1C 

CHAR 

CS 

1C 

TEMP 

DS 

1C 

TINK 

DS 

5C 

XSP 

DS 

IOC 

YSP 

DS 

IOC 

XEP 

CS 

IOC 

YEP 

CS 

IOC 

ALXYJ 

CS 

8C 

XL 

DS 

IH 

YL 

DS 

IH 

XLO 

CS 

IH 

YLO 

DS 

IH 

♦AX3  THRU  AX02  ARE  USED  AS  NTCUSP, 
AX3  CS  1H 

AX2  CS  IH 


ETC. 


BY  REC 
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AX  1 

DS 

1H 

AX 

CS 

1H 

AX23 

DS 

1H 

AX  12 

DS 

1H 

AXO 1 

CS 

1H 

AX02 

CS 

1H 

NC 

DS 

1H 

C 

CS 

1H 

CYM 

DS 

IH 

DXS 

DS 

IH 

DYS 

CS 

1H 

XRS 

CS 

IH 

XLS 

CS 

IH 

YTS 

CS 

IH 

YBS 

CS 

IH 

CENT 

CS 

IF 

MVC 

CS 

6C 

TTURN 

DS 

IH 

TURN 

CS 

IF 

XC 

DS 

IOC 

YC 

CS 

IOC 

DO 

DS 

IH 

Cl 

CS 

IH 

D2 

DS 

IH 

D3 

DS 

IH 

C4 

CS 

IH 

05 

DS 

IH 

C6 

DS 

IH 

C7 

CS 

IH 

♦BEWAREt  DATA  BELOW  07  CANNOT  BE  REFERRED  TO  BY  TABLE  MACROS 


D8 

DS 

IH 

09 

CS 

IH 

CIO 

CS 

IH 

Cll 

CS 

IH 

D 12 

CS 

IH 

C 13 

CS 

IH 

C14 

DS 

IH 

C 1 5 

DS 

IH 

CN 

DS 

IH 

NTCUSP 

ECU 

AX3 

NTCSP1 

DS 

IH 

PNPTS 

CS 

IH 

PYMAX 

CS 

IH 

PYMIN 

DS 

IH 

NYMAX 

ECU 

AX2 

NYMX1 

DS 

IH 

NYMIN 

ECU 

AX  1 

NYMN1 

CS 

IH 

YM  AX 

DS 

10H 

YMIN 

ECU 

YMAX+1C 

CYMAX 

ECU 

AX 
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CYMXI 

DS 

IOC 

CYMIN 

EQU 

QYMAX+5 

PYMXX 

DS 

LH 

PYMNX 

DS 

1H 

YMAXX 

CS 

10H 

YMINX 

ECU 

YMAXX+10 

♦8EWARE, 

DATA 

8EL0W  D7  CANNOT 

BE  REFERRED 

TO  BY  TABLE  MACROS 

XYSP 

EQU 

XYS-DATA 

XYS 

DSECTIR6) 

XYEP 

ECU 

XYE-DATA 

XYE 

DSECT ( R6 ) 

EXO 

ECU 

0 

EX  I 

ECU 

4 

* 


* 

**** INTERPRETER**** 
* 

* 


INTERP 

BOX 

START 

ECU 

* 

LA 

R7, 8 ASE 

LA 

R8,GPSW 

MV  I 

C(RI4) ,X*00* 

AGAIN 

EQU 

* 

CLI 

0(R8) ,X»90* 

BC 

4, BRANCH 

CLI 

0(R8),X'9F» 

BC 

2, BRANCH 

MAGIC 

EQU 

* 

CLI 

0(R8),X*98* 

BC 

2»T99 

COMM 

EQU 

* 

MVC 

0(2, R15) ,0<R8) 

SR 

R9*R9 

IC 

R9 , 2 ( R8 ) 

LA 

R9*D ATA ( R9 ) 

MVC 

2(2, RI5) ,OPER 

EX 

0*  0 ( R15 ) 

LA 

R  8  ,  3  ( R  8  ) 

8AL 

RIO, COMMI 

COMMI 

ECU 

* 

ST 

R 10, 0 ( R 14 ) 

BC 

15, AGAIN 

T99 

EQU 

* 

CLI 

0 ( R8 ) »  X*  9F* 

BC 

2, BRANCH 

CLI 

0 ( R8 ) »  X • 99* 

BC 

7,  T9A 

MVC 

0(2, R15) , 3 ( R  8 ) 

LH 

R9,0(R15) 

LA 

R9,0 (R7,R9) 

SR 

R 10 , R 10 

IC 

R 10, 2 ( R8  ) 

ADVANCE 

GENERAL  PURPCSE  SWITCH 
CLEAR  THE  CONDITION  CODE 

COMMAND 

MUST  BE  A  BRANCH 

STANDARD  COMMAND 

GET  THE  DATA 


REALLY  A  BRANCH 

MUST  BE  A  TRANSLATE 


FIND  THE  TABLE 
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T9A 


T9B 


BRANCH 


AGREE 

ERROR 

TEST* 


LA 

R 10,  DATA ( R 10  ) 

MVC 

TEMPI  1 )  ,  0  <  R 10  ) 

TR 

TEMP {  1 )  , 0 ( R9 ) 

LA 

R8,5(R8) 

BC 

15, AGAIN 

ECU 

* 

CLI 

0(R8),X'9A* 

BC 

7,  T98 

SR 

R9»R9 

IC 

R9,2(R8> 

LA 

RIO, DATA ( R9 ) 

IC 

R9, 0 ( R 10  ) 

SLL 

R9  »  1 

MVC 

0  (  2,  R  1 5  )  » 3  {  R 8  ) 

LH 

RIO,  C (R15 ) 

LA 

RIO*  0 { R7»R10 ) 

LA 

R10,0(R9,R10) 

MVC 

2<2,R15) ,0{R1C) 

BC 

15, AGREE 

EQU 

* 

CLI 

0(R8),X*9B* 

BC 

7, ERROR 

MV  I 

0(R15),X*00* 

MVC 

1(  1,R15),1(R8) 

LH 

R  8 , 0  (  R  1 5  ) 

BEXIT 

EXO 

EQU 

* 

MVC 

0(1»RI5),0(RI4) 

N I 

01R15),X'30* 

MVC 

2(2, R15) ,0(R8 ) 

MVC 

i(l,R15),2(R15) 

N  I 

1  (R15) ,X* FO* 

SR 

R 10  ,  R  1C 

IC 

RIO, 0 ( R 15 ) 

SRL 

R  1C  ,  2 

LA 

R 10, TESTM ( R 10  ) 

EX 

0, 0 ( R 1C  ) 

BC 

1, AGREE 

LA 

R8 , 2 ( R8 ) 

BC 

15, AGAIN 

EQU 

* 

N  I 

2(R15) , X  *  OF ' 

LH 

R9 , 2 ( R 1 5 ) 

LA 

R8,0 (R7,R9) 

BC 

15, AGAIN 

EQU 

* 

BEXIT 

EX  1 

EQU 

* 

TM 

1(R15),X*80' 

TM 

1 ( R 15  J , X • 40* 

TM 

1(R15) ,X*20* 

FIND  THE  DATA 

ADVANCE  THE  IC 

MUST  BE  A  SWITCH 

GET  TABLE 

GET  T  ABLE  ENTRY 

MUST  BE  AN  EXIT 

MUST  BE  A  BRANCH 
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TM  KRl5)fX,10* 
GPER  DC  X • 9CCC  * 

* 

* 

♦♦♦STABLE  EXITS*««* 

♦ 


♦ 


*  TABLE 

EXITS 

XAHSTR 

ECU 

0 

XKNY 

EQU 

1 

XFI 

ECU 

2 

XKVXY 

ECU 

3 

XWW 

ECU 

4 

XMWIN 

EQU 

5 

XMW1 

EQU 

6 

XPOST 

ECU 

7 

XRECD 

ECU 

8 

XSDP 

EQU 

9 

XSMNW 

ECU 

LO 

XSM1M 

EQU 

11 

XSRPRM 

EQU 

12 

XSSM 

EQU 

13 

XSVM 

ECU 

14 

XTEST1 

EQU 

15 

XTEST3 

EQU 

16 

XTPLUS 

ECU 

17 

XSTRLE 

ECU 

18 

XSALCS 

EQU 

19 

XSG8LC 

ECU 

20 

XSMLCN 

EQU 

21 

XSCBCU 

EQU 

22 

XSNLC 

EQU 

23 

XSPLC 

EQU 

24 

XSRLC 

EQU 

25 

XS8LC 

EQU 

26 

XSULC 

EQU 

27 

XS4LC 

EQU 

28 

XSCPEL 

EQU 

29 

XSCPMW 

ECU 

30 

XSCPYZ 

EQU 

31 

XSCPBS 

EQU 

32 

XSBVMN 

ECU 

33 

XRAZE 

ECU 

34 

XS8LCV 

ECU 

35 

XSULCi 

EQU 

36 

XS4MK1 

ECU 

37 

XSELCA 

EQU 

38 

♦ 

♦ 


♦  ♦♦♦TABLE  TESTS^^ 

♦ 
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* 


BASE 

EQU 

♦ 

AHSTR 

TABLE 

/MV»PAD+3,3A/,15,AHSTRX 

BR 

TABLE 

/TM,C0DE+l,80/,i,TEST3,/TM,C0DE+l,10/,8,TEST3,/CL,N+l,O5X 
/,8,SW,  15, SM 

FIME 

TABLE 

/MV,P»GO/» 15»FIME1 

FIME1 

TABLE 

/CL»P»C2/,8,SE»/CL»P»01/»8*SPGUND»/MV»PA0+3»23/,15,FI 

G6ETST 

TABLE 

/TR,  P, C0/,0, PBB, /SS,  TEMP., 00/, 0,PBBX 

PBB 

DS 

OH 

OC 

X*  03* 

DC 

2X*  00 ' 

DC 

2X*  03* 

DC 

3X • 02  * 

DC 

4X • 03 ' 

P8BX 

TABLE 

15, OC 

TABLE 

15, SQ 

TABLE 

15, S8 

TABLE 

15 , SG6X 

KNYM 

TABLE 

/MV , P , 00 / 

KNYM1 

TABLE 

/CL,  P, 01/, 8, MW, /MV, PAD+3, 24/, 15, KNY 

KVXYM 

TABLE 

/CL* P* Cl/,8, KNYM, /CL , P , 02/ ,8 , AHSTR, /MV , PAD+3, 06/, /MV, P, OX 
8/,15,KVXY 

LPRSLA 

TABLE 

/CL*XYE+1»0F/»8,SSLASH»15»  SLPAR 

MK 

TABLE 

/MV,P,C0/,/TM,XYS+3,02/,l,SM,15,SK 

*P  IF  SECOND  STROKE  IS  NOT  SINGLE  ANGLE  OR  OCUBLE  ANGLE 

CQ  TABLE  /CL,N+l,02/,2,SP,/TM,XYS+3,0C/,5,SQ,/TM,XYS+3,03/,i,SQ,lX 

5*  SO 

PADEX  TABLE  /SS, PAD+3, 00/, O.PADT 

PARSLA  TABLE  /CL , XYS+ 1, 00 / , 8 , LPRSL A, / TM , XYS+ 1 , 02/ , 8 , SLP AR , 1 , SRPAR 
PGTR2  TABLE  /MV t P, 02/, 15 t PAOEX 

TEST5  TABLE  /MV, PAC  +  3 ,  IE/ ,  15 ,S VM 

TPLUSM  TABLE  /CL , P , C 1 / , 8, AHSTR , /C L , P , 02/ , 8 , F I  ME , /MV , PAD  +  3 , 36/ , /MV , P , OX 
A/,15,TPLUS  36 

XMK  TABLE  /MV, P, CO/ , 15, XMK  1 

XMK 1  TABLE  /CL , P , 0 1 /, 8, SK , /CL ♦ P , 02/ , 8 , AHSTR , /MV , PAD+3 , 18/ , / TM , XYS+1X 

,02/,8,KVXY,/TM,XYS+3,02/,8,KVXY,/TM,XYE+3,02/,8,SR,/TM,X 
XYE+3»CC/»l,SD,l5*SP 

EJECT 

SASTAR  TA8LE  /TM, XYE+ i,0C/ , 12 , SALC , /EX , XSTRLC , 0/ 

SALC  TABLE  /TM , XYS+  1 , OC/ , 12 ,R SF , / TM , XYE+1 , OC / , 8 , RS V , /TM , CODE , 08/ , I , X 

SALCS,/TM,COOE,04/,8,SCPBS,/TM,CODE,02/,1,SALCS,15,SCPBS 
SALCF  TABLE  /TM , XYS+ 1 , OC / , 1 , SA , /MV ,CHAR , 86/ , 15  * RECD 
SALCS  TABLE  /EX, XSALCS.O/ 

SAMSTR  TABLE  /MV,P, CO/,15, SAMST1 

SAMST1  TABLE  /CL, P , C l / , 8 , SSTAR, /MV , PAO+3 , 15/ , 1 5 , SA  15 

SA7  TABLE  /CL, P , 02/, 8, SA, /MV , PAD+3 , 37/ , 15 , S7 

SBARM  TABLE  /CL , P , 02/ , 8, SETEQM , 2 , PGTR2 , /CL , P , 0 l / , 8 , STTPLS , /CL , SN+1 , OX 
l/,2,PGTR2,/MV,P,02/,/CL,C0DE*00/,8,SMINUS,/CL,ASPR,02/,X 
10,SSLASH,5,SKINUS 

SBARMK  TABLE  /CL , P , 0 1 / , 8, S4MK , /CL , P , 02/ , 8 , SETEQM , 2 , PGTR2 , /MV , P AD+3, ODX 
/, 15 , SCRKRT 
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S8DPR 

TABLE 

/TR,BR56+i,00/,0,II,/SS,TEMP,00/,0,III 

11 

CS 

OH 

CC 

X'CO' 

CC 

4X ' CC  * 

CC 

X'Cl' 

DC 

4X • C  0 ' 

DC 

X'Cl* 

CC 

4X  *  0  0 ' 

CC 

X'Ol* 

DC 

X*  02' 

SBDPR1 

TABLE 

/TR,BR56+1,00/,0,KK,/SS,TEMP,C0/,C,KKK 

KK 

OS 

OH 

DC 

X '  CB  * 

CC 

X'Ol' 

DC 

X*  02 ' 

DC 

2X*  04* 

DC 

X'  CO* 

CC 

X'Cl* 

CC 

X*  04* 

CC 

4X  *  0  C ' 

CC 

X»  03  * 

CC 

X'Ol' 

CC 

X*  02  • 

DC 

X*  03 ' 

DC 

X'CO' 

KKK 

TABLE 

15 1 SDP 

TABLE 

15, DK 

TABLE 

15, SB 

TABLE 

15.TEST3 

TABLE 

15, S8R1 

I  I  I 

TABLE 

15,TEST3 

TABLE 

15, SDP 

TABLE 

15 , SPRMA 

SBM5 

TABLE 

/MV,P*C0/»15»SBM51 

SBM51 

TABLE 

/CL,P»C2/»8»S5»/MV»PAQ+3»26/»l5»S8 

SBR1 

TABLE 

/CL, N+ 1,06/, 12,SR,/TM,C0D£+1,CC/,12,SB,/CL,N+1,07/,8,SR,X 
15, SB 

SCG 

TABLE 

/CL,N+1,C5/,2,SG,12,SCLC 

SCLC 

TABLE 

/CL,CYMIN,03/,8,RSD, 15,SCC 

SCLBRC 

TABLE 

/CL,NTCUSP+1,01/,10,SLBRAC,/CL,ASPR+1,05/,2,SLBRAC,15,SCX 

r 

SCMEG 

TABLE 

/CL,P,01/*8,SK,/CL,P,02/,8,SE,/CL,P,03/,8,SG,/MV,PAD+3, IX 
6/,/MV,P,05/,/CL,NCUSP+l,0i/,2,SLBRAC,8,SCLBRC,/CL,ASPR+X 
1, 08/, 2, SL PAR, 15, SCC 

SCMG 

TABLE 

/TR, P, C0/,0, PAA, /SS, TEMP, 00/, 0,PAAA 

PAA 

CS 

OH 

DC 

2X'0 2* 

CC 

2  X  '  0  0  * 

CC 

X'  02* 

DC 

3X • 0 1 ' 

CC 

4X ' 02  * 
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PAAA  TABLE  15, SG 

TABLE  15, SB 
TABLE  15,SCMG1 

SCMG1  TABLE  /M V , P AC  +  3 , 05/ , /M V , P, 05/ , 15  ,  SCC  05 

SCCM  TABLE  /TM, XYE+ 1, CC/ , 8 , SOMOQ8, 5 , SCMG 

SCOMAM  TABLE  /CL, PAC+3, 15/ , 8 , SAMST 1 , /CL , P , 01 / , 8 , SXMSTR , /CL  * P , 02/ , 8 , S AX 
MSTR,/CL»P»0A/*8»SSTAR*/MV» PAD+3 ,14/, 15, SKARA  T  14 

SCRKRT  TABLE  /CL, NTCUSP+1 , 0 1/ , 4, SCC , 15 , SRKRT 
SDMH  TABLE  /CL , P , 0 1  / , 8 , SH, /MV , PAD+3 ,22/ ,  15 , SO 

SEG06M  TABLE  /CL, P AC  +  3, 09/ , 8 , SOMOG8 , /CL , P AO+3 ,2 1/ , 8 , QG , /CL , PAD+3 , OA/ , X 
8,G6ETST,/TM,XYE+l,08/,8,S0M0G8,15,G6ETST  09 

SETEQ  TABLE  /MV, PAC+3,07/ , /M V,P , 08/ , 15 ,SEQL  07 

SETEGM  TABLE  /CL, PAC  +  3 , 07/ , 8 , SETXX , /MV , P , 00/ , 15 , SETXX 

SETXX  TABLE  /CL , P , C2/, 8, S TPE , /CL , P , 0 l / , 8 , F I  ME , /TM, X YS+1 , 08/ , 1 ,  SETEQ , X 
/TM»XYE+1,0C/»12»SETEQ»/MV» PAD+3 , 06/ » /MV ,P  » 1 1/ » 1 5  » SX 
SET  1 AK  TABLE  /MV , PAC  +  3 , 19/ , /M V , P , 09/ , 15 , SK  19 

SEG  TABLE  /CL,N+1,C4/,2,RSG,15,SE 

SFE  TABLE  /CL , PAC+3, 20/ , 8 , SFME 1 , /CL , PAD+3, IF/ , 8 , SFME , /CL , P , 08/ » 8 , SX 

£»/CL»P*C7/*2»SFEl»/CL»P»05/»10»OG»/CL»P*01/,8»STPK»/CL»X 
P, 02/, 8, SFME,  15,SFE1 

SFE 1  TABLE  /MV , PAC+3, IF/ , 15 ,LPRSLA  IF 

SFME  TABLE  /MV, P,CC/, 15, SFME1 

SFME1  TABLE  /CL , P , 02 / , 8 , SE , /MV , PAO+3 , 20/ , /CL , XYE+1 , OC/ , 8 , SXMSTR , /CL , X 
XYE+3, CC/, 8, SXMSTR, /CL, XYE+ 1,00/, 8, SXMSTR, /CL, XYE+3,0D/,X 
8, SXMSTR, /TM, XYE+3, 02/,l»SY,15*SF 

SGS  TABLE  /CL , N+ 1 , 04/ , 12 , S65 , /TM ,C0DE+1 ,C0/ , 8 , SG8 ,4 , SSM , /TM  ,  CCCE+ IX 

,30/,5*,SEGC6M,/EX,XSELCA,0/ 

SGSCRB  TABLE  /CL , N+ 1 , 04/ , 2 , SSCRUB , 12 , SG8 
SGS06M  TABLE  /TM, TURN , 08/ , 1 , SEG06M , 12 , SSM 
SG06M  TABLE  /TR , 8R56+ 1 , 00/ , 0 ,FF , / SS ,TEMP ,00/ ,0,FFF 
FF  CS  OH 

CC  4X • 02 ' 

DC  4X *  0  l  * 

CC  4X'0C' 

CC  X*  03 ' 

CC  3X *  0 0 ' 

CC  X*CO* 

FFF  TABLE  15,SEGC6M 

TABLE  15, S8 

TABLE  15 , SG8 

TABLE  15 , R  SO 

SG069M  TABLE  /TR, BR56+1 , 00 / , 0 ,EE , /SS , TEMP , 00/ , 0 ♦ EEEX 
EE  DS  OH 

DC  9X *  02 ' 

DC  X  *  03  * 

DC  2X*  04' 

CC  4X ' 0 1 ' 

CC  X'CO' 

EEEX  TABLE  15,SC0M 

TABLE  15,S9MG 

TABLE  15, SG8 
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TABLE 

15, S8 

TABLE 

15, SEGC6M 

SG6X 

TABLE 

/MV,PAD+3,0A/,/MV,P,06/,/CL,NTCUSP+l,0i/,10,SG,/TM,XYE+lX 

,G2/»l»S6,/TM,XY£+l»Gl/»8,SG»/TM»XY6+l»0C/,l»S6»15»SG 

SG8 

TABLE 

/TM,XYE+1»GC/»5»SG,/EX,XSG8LC»0/ 

SG8 1 

TABLE 

/TM,XYE+l,0C/,l,SG,15,S8 

SJMU 

TA8LE 

/MV,P,CC/,15,SUMXX 

SUMXX 

TABLE 

/CL,P,C2/,8,SU,/MV,PA04-3,27/,15,SJ 

SK5 

TABLE 

/CL,P,Ci/,8,SK,/MV,PAD+3,28/,15,S5 

SLKRTM 

TABLE 

/MV,PAC+3, 10/,/CL,P,00/,8,SLKRT,2,SRPRM 

SLMEK4 

TABLE 

/TR, P, CC/, 0, PEE, /SS, TEMP, 00/, 0, PEEE 

PEE 

OS 

OH 

DC 

X '  03 ' 

CC 

X*C0* 

CC 

X*  05* 

DC 

3X' 03* 

DC 

X*  04* 

CC 

X  *  03  • 

DC 

X*01* 

CC 

2X *  03 * 

DC 

X  *  02  * 

PEEE 

TABLE 

15 , S4Y 

TABLE 

15, STPE 

TABLE 

15, SK 

TABLE 

15, SLX 

TABLE 

15, SC 

TABLE 

15,SXME 

SLX 

TABLE 

/MV, PAD+3, iA/,/CL,ASPR+l,08/,2,SLPAR,12,SL  1A 

SMC 

TABLE 

/TR,8R56+l,00/,0,DD,/SS,TEMP,00/,0,DOD 

CC 

DS 

OH 

CC 

4X  *  02  * 

CC 

X*CO* 

DC 

X*01* 

CC 

X *  03 * 

CC 

X*  04* 

CC 

X  *  06 • 

CC 

X*  02 ' 

CC 

X  •  05  * 

DC 

X*  06 ' 

DC 

3X*  02* 

CC 

X '  04 ' 

CC 

X»C1* 

CCD 

TABLE 

15, SG 

TABLE 

15 ,SCMG 

TABLE 

15 , SSM 

TABLE 

15 , SEGC6M 

TABLE 

15, S9MG 

TABLE 

15, S6S 

TABLE 

15, SE 

SMLC 

TABLE 

/CL,N+l,05/,2,SCPMWK,/TM,XYS+l,08/,8,SCPPYZ,/CL,CYMAX+l,X 

00/,2,SCPBH,/EX,XSMLCN,0/ 
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SMI 

TABLE 

/CL, ASPR  +  lt 20/, 2, SI , /CL , ASPR+ 1 , 0C/ , 12 , PARSLA , /TM , XYS+ l , OX 
2/,i,SlRPAR,/TM,XYE+i,02/,l,Sl,8,SLPAR,15,SlRPAR 

SNM  A 

TABLE 

/CL,P,C2/,8,SA,/CL,P,0i/,8,RSX,/MV,PAD+3,29/,/TM,CCDE,0CX 
/, 1, SNLC,4,SNLCi,/TM,XYS+l , OC/ , 12 , S2LCY , /EX , XSCBCU , 0/ 

SNLC 

TABLE 

/EX, XSNLC, 0/ 

SNLC1 

TABLE 

/TM,C0CE,C8/,  1, SNLC, /TM, XYS+1 ,0C/, 1, SNLC, /TM,XYE  + 1,08/, IX 
»  S2  »  15, SNLC 

SPRMA 

TABLE 

/MV,PAC+3,OC/,/CL,P,Oi/,8,SM,/CL,P,02/,8,SA,/TM,XYE+l,OCX 
/, L2,SPLC,/TM,XYE+1,02/, 1,SD, 15, SRLC 

SPLC 

TABLE 

/EX,XSPLC»0/ 

SRLC 

TABLE 

/CL,QYMAX+1,0C/,8,SRLCX,/CL,N+1,05/,2,RSK,15,RSH 

SRPRMJ 

TABLE 

/CL,P,C2/,8,SJ,/CL,P,06/,8,SC,/MV,PA0+3,2A/, 15,SRPAR 

SS589M 

TABLE 

/TR,8R56+1,00/,C,GG, / SS , TEMP ,00/ , 0 ,GGG 

6G 

DS 

OH 

CC 

X'  05* 

DC 

2X • 06 ' 

CC 

x»oi* 

DC 

X '  07  • 

DC 

X*  04 ' 

CC 

2X  *  0 1 * 

CC 

X  *  03  * 

CC 

X*  04' 

CC 

X*  02* 

CC 

X*C1* 

CC 

X*  03  r 

CC 

X*  04 * 

CC 

X*Ol* 

CC 

X*  02* 

DC 

X*00* 

GGG 

TABLE 

15 , S9MG 

TABLE 

15, DK 

TABLE 

15,SSM 

TABLE 

15, SB 

TABLE 

15, TEST  1 

TABLE 

15, SE 

TABLE 

15,RSG 

TABLE 

15,RSG 

SS8M 

TABLE 

/TR,BR56>i,00/,0,HH,/SS,TEPP,00/,0,HHH 

HH 

CS 

OH 

CC 

5X*  01* 

CC 

X  •  03  * 

CC 

4X  *  0  1  * 

CC 

X*  02' 

CC 

4X  *  0 1  * 

DC 

X '  02  • 

CC 

X'CO* 

HHH 

TABLE 

15 , S  SM 

TABLE 

15, S8 

TABLE 

15,  DK 

TABLE 

15, TEST  1 

STPA 

TABLE 

/MV, P,C0/,/MV,PAD+3,2B/,l5,SALCF 
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STPE  TABLE  /M V, P , CC  /  , /M V ,PA0+3 , 2C/ , 15 , SE 

STPH8  TABLE  /CL , P , C  1/ , 8 , SH , /CL , P  , 02/ , 8, SF ,/MV , PAD+3 ,2D/ , 15 , S8LC 
S8LC  TABLE  /EX,XS8LC,0/ 

STPK  TABLE  /CL , P , C 1 / , 8, KVXY , 15 , STPK 1 

STPK1  TABLE  /MV, P , CC / , /MV  , PAD+3 , 2E/ , 15  , SK 
STPJ  TABLE  /MV,PAC+3,2F/,15,SJ 

STPM  TABLE  /CL , P , C 1 / , 8, SM , /MV, PAD+3 ,30/ , 15 , SYLC 

SYLC  TABLE  /CL , N+  1 , 05/ , 2 ,R SM , /CL  , Q YM I N , 03/ , 8  , RSN , 1 5  ,  SY 

STP5  TABLE  /CL ♦ P AC+3 , 03/ , 8 , S5 , /CL , P , 02/ ♦ 8 , S5 , /MV , PAD+3 ,03/ , /TM , X YE+X 

1»08/,8»S8,/CL»C0DE»CB/,6»S5,/TM»TURN,04/»8*S6»15,S5 
STP6  TABLE  /M V , PAC+ 3 , 02/ , /CL , P , 0 1 / , 8 , SO , /CL , P ,02/ , 8 , S5 , /CL , P , 06/ , 8 , X 

S8,/MV,P,06/,15,S6 
STTPLS  TABLE  /MV, P, CO/, 15, TPLUSM 

SUMAM  TABLE  /MV , PAO+3 , OF/ , /CL , P , C 1/ , 8 , MK , /C L , P , 02/ , 8 , S A , /CL , N+ 1 , 05/ , X 
2,SW,/CL,C0DE,C7/,8, SULC 1 , 15 , SULC 

SULC  TABLE  /CL , QYMA X  + 1 , C 0/ , 2 , R SH , /TM , X YE  + 1 ,0C/ ,  12 , RSR , / EX , XSULC  , 0/ 

SULCI  TABLE  /CL»QYMIN»03/*4»RSY,/EX»XSULC1,0/ 

SUM JU  TABLE  /CL , P , C2 / , 8 , S JMU , /CL , P , 01 / , 8 , SY , /CL , P , 07/ , 8 , S8 , /MV  ,  T EMP  ,  X 

CO/,15, TEST5 

SUMJUi  TABLE  /MV, P, C 7/ , /MV , PAD+3 , 3 1/ , l 5 , SU 

SXHBL  TABLE  /CL , N+l , 04/ , 8 ,R SL , /CL , NYMAX+1 , 0 1 / , 12 , RSB , /CL ,N+ 1 , 07/ , 2 , RX 
SK , 1 5 , R  SH 

SXME  TABLE  /MV , PAC+ 3, IB/ , /MV , P , CO/ , /CL , CODE , 00/ , 8 , SLBRAC , 15 , SX  IB 

SXMSTR  TABLE  /MV, P, CC/ , 15, SXM ST  1 

SXMST1  TABLE  /CL , P , C2/ , 8 , SSTAR , /M V , PAD+3 ♦ 32/ , 1 5, SX  32 

EJECT 

S0M0Q8  TABLE  /TR , P , C 0/ , 0, PBB , /SS , TEMP , 00/ , 0 , P8BB 
PBBB  TABLE  15, OG 

TABLE  15, SG 
TABLE  15, S8 
TABLE  15, SCX 

SOX  TABLE  /MV, PAC  +  3, 09/, /MV, P, 06/, /TM, CODE, CO/,1, SOD, 15, SO 

SOD  TABLE  /CL , NTCUSP+ 1 , 01/ , 10 , SD , 15 , SO 

S023MB  TABLE  /TM, XYE+ 1 , 08/ , 1 , S23MB , 15 , SCM0Q8 

S09  TABLE  /TM , XYE+ 1 , OC/ , 1 , S9 , 15 , S0MCC8 

S09M  TABLE  /CL , N+ 1 , 05/ , 2 , S0M0G8 , 15 , S9LC1 

S1MAK  TABLE  /TR , P , C 0/ , 0 , PCC , /SS , TEMP , 00/ ,0, PCCC 

PCC  DS  OH 

CC  X  *  02  * 

DC  X'OO* 

CC  X*C1* 

CC  X*  C3' 

CC  7X ' C  C ' 

CC  X*  03 * 

PCCC  TABLE  15, SET1AK 

TABLE  15 , STPA 
TABLE  15 , S  1MAKX 
TABLE  15, STPK 

S1MAKX  TABLE  /MV, PAC  +  3, 19/ , /M V , P , 09/ , 1 5  ,  SI  19 

S1RPAR  TABLE  /TM, XYE+ 1 , 02/ , 1 , SRPAR , 15 , S 1 

S2MRZ  TABLE  /CL , P , 02/ , 8 , SZ , /CL , P , 0 1 / , 8 , TEST3 , /TM , XYS+1 , OC/ , 1 , SAST AR , X 
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/CL,C0CE,3B/,6,N0323,/CL,C0DE+1,AA/,8,S3MB,/CL,C0CE+1,3AX 
/,8, S3MB,15,NG323 


N0323 

TABLE 

/MV»PAD+3»CB/»l5tS2LC 

S2LC 

TABLE 

/TM,XYE+i,08/,l,S2,/CL,N+l,Q4/,2,RSP,15, RSF 

S2LCI 

TABLE 

/MV,PAD+3,0B/,/TM,XYS+l,08/,8*S2MRZ,/CL,C0DE,24/,8,RSS,lX 
5  »  R  SR 

S2LCY 

TABLE 

/CLtN+l,04/,8#S2tl5,RSY 

S2LCZ 

TABLE 

/CL»N+t»C4/»8»S2»15»RSZ 

S23MB 

TABLE 

/CL,N+1,C4/,2,S23MB1,/CL,C0DE,39/,8,S0M0C8,15,S23MB1 

S23MB1 

TABLE 

/TR,BR56+i»GC/*G,BB,/SS*TEMP»C0/»0»B8B 

eB 

OS 

OH 

DC 

X*00* 

CC 

4X*  02* 

CC 

X*  CO* 

CC 

4X *  C2 1 

DC 

X*  02 ' 

CC 

4X • 02 ' 

CC 

X  *  02 ' 

CC 

X*CO' 

S23MBP 

ECU 

* 

TABLE 

/TM,XYS+1»0C/»1,TEST3,/CL, PAD +3  ,0£/»8»S3MB»/CL»N+l,C7/f2X 
,S3MB, /TR,BR56+1,00/,0,CC,/SS,TEMP,00/,0,BBB 

CC 

CS 

OH 

DC 

X*00* 

CC 

3X • 02  * 

DC 

10X*  CC* 

CC 

X*  C2* 

CC 

X*CO* 

CC 

X»C1* 

BBB 

TABLE 

15  »  S2MR  Z 

TABLE 

15 , S0MCQ8 

TABLE 

15  *  S3MB 

S24 

TABLE 

/TM*  XYS+ 1, OC/ » 1 »  S4LC  » /MV #PAD>3 , OB/ » 15 ,S2 

S4LC 

TABLE 

/TM,XYS+i,03/, 12, S4, /MV, PAD+3 , 38/ , /EX , X S4LC ,0/ 

S3MB 

TABLE 

/CL»P»C1/»8»TEST3»/MV*PAD+3»0E/»15»S3LC1 

S3LC 

TABLE 

/TM,XYE+l»08/,8,RSZ,/TM,XYS+l,0C/, 1,RSR,15,S3 

S3LC1 

TABLE 

/TM, XYE+1,08/,8,RSZ,/TM,XYE*1,02/,1,S3, 15,RSA 

S3MBR 

* 

TABLE 

/CL,PAC+3,04/,8,S3MBRi,/TM,CCDE,03/,lf S3MBR1, /CL,N+1 ,04/X 
,8,S2LC1,15, S3MBR1 

S3MBR1 

TABLE 

/CL,P,Cl/,8,BR,/MV,PAD+3,04/,15,S3LC 

S3SCRB 

TABLE 

/CL»N+l»C4/*2»  S SCRUB  ,12,S3MB 

S4MK 

table 

/MV,P,CC/,15,S4MK1 

S4MK1 

TABLE 

/CL»P»Cl/,8»SK»/MV»PA0+3»33/»15»S4MKiX 

S4Y 

TABLE 

/CL,N+1, Cl/,12, S4Y 1,2, S4MK 

♦2ND  STROKE  HAS 

i  ONLY  1  ANGLE,  1ST  STROKE  IS  L 

*CCES  THE 

i  1ST  STROKE  L  HAVE  ITS  ENDPT  IN  RIGHT  1/4 

S4Y  1 

TABLE 

/TM,XYE+1,C3/,8,S4MK,15,SY 

S6S 

TABLE 

/TM, TURN+1 » 40/ » 1 *SSM » 15 » STP6 

S65 

TABLE 

/TM, TURN, 01/, l,SSM,15,STP6 

S7MGK 

TABLE 

/CL , PAC+3* 18/ , 8, XMK 1 , /TR , P ,00/ , 0, PDD , /SS , TEMP  ,00/ ,0 , PDOO 

POD 

CS 

OH 
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DC 

X  •  02 ' 

CC 

X'CO* 

DC 

X  •  06  • 

CC 

2X  *  02 * 

CC 

X  •  05 ' 

CC 

X*  04  * 

CC 

2X*  02* 

CC 

X*  03 ' 

CC 

X»  02* 

CC 

X'Oi* 

PCCC 

TABLE 

15  ,  XMK 

TABLE 

15,  SK 

TABLE 

15, S7X 

TA8LE 

15  ,  STPK 

TABLE 

15, SO 

TABLE 

15, SG 

TABLE 

15,SXMSTR 

S7X 

TABLE 

/MV»PAC+3»17/,/MV»P»03/,/CL» NCUSP+1 ,01/, 10, S7 ,/CL»ASPR+lX 
,08/ ,2, SR PAR, 15, S7 

S8LCV 

TABLE 

/MV,PAC+3,39/,/TM,XYE+i,08/,l,S2,15,S8LCVX 

S9MG 

TABLE 

/CL,P,C2/,8,SG,/MV,PAD+3,34/,15,S9LC 

S9LC1 

TABLE 

/TM,XYE+l,0C/,l,SCPEL,/CL,NYMIN+l,01/,12,S9,/TM,XYS+i,0CX 
/*  l,RSB,15,RSF 

S9LC 

TABLE 

/CL,NYMIN+1,01/,2,S9LC2N,4,S9LCGQ,/CL,CYPIN,03/,8,SCPAD,X 
15 , S9LCG0 

S9LC2N 

TABLE 

/CL,GYMIN+i,03/,8,SCPAD,15,S9LCGQ 

S9LCGQ 

TABLE 

/TM,XYE+i,0C/,l,S9, 15, SCPGQ 

S9MK 

TABLE 

/CL,P,0i/,8,SK,/MV,PAD+3,35/,15,S9 

♦SCRIPT 

LETTERS 

SCPAD 

TABLE 

/TM,XYE+i,08/,8,SCPGQ,/CL,QYMAX,00/,8,RSA,/TM,XYS+l,CC/»X 
8,RSA, 15,RSD 

SCPGQ 

TABLE 

15,RSG 

SCPEL 

TABLE 

/MV,PAC+3,38/,/EX,XSCPEL,0/ 

SCPMW 

TABLE 

/EX, XSCPMW»0/ 

SCPPYZ 

TABLE 

/CL,QYHIN+1,03/,8,RSP,15,SCPYZ 

SCPYZ 

TABLE 

/EX, XSCPYZ, 0/ 

SCPBH 

TABLE 

/TM, XYE  +  1,0C/ , 1,RSH, 1 5 ,R  SB 

SCPMWK 

TABLE 

/CL,GYMAX+1,0C/,2,RSK,15,SCPHW 

SCPNU 

TABLE 

15,RSN 

SCPBS 

TABLE 

/EX, XSCPBS.C/ 

SCPFP 

TABLE 

/TM,XYS+l,0C/,12,SCPFPY,/MV,PAD+3,39/,/EX,XSBVMN,0/ 

SCPFPY 

TABLE 

/CL, N+l , 05/, 12,RSF,/CL,QYHIN+l,03/,8,RSP,l5,RSY 

SCPNRZ 

TABLE 

/TM,XYS+1,0C/,12*S2LCZ,/CL,N+1,04/,8,RSR,/CL,N+1 ,07/,2,RX 
SM,/TM,CC0E,C0/,4,RSC,15,RSN 

SCRPT 

TABLE 

/TM,XYS+l,0C/,12,SCPGQ,/CL,CYMAX,0O/,2,RSD,/CL,N+l,05/, IX 
2,RSR,15,RSA 

SCPTX 

* 

TABLE 

/CL  »P,C1/,8,RSX, 15,RST 

* 

♦♦♦♦SET-UP  CHARACTER  C0DE+4++ 
* 
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* 


SA 

TABLE 

/MV 

SB 

TABLE 

/MV 

see 

TABLE 

/MV 

so 

TABLE 

/MV 

SE 

TABLE 

/MV 

SF 

TABLE 

/MV 

SG 

table 

/MV 

SH 

TABLE 

/MV 

SJ 

TABLE 

/MV 

SK 

TABLE 

/MV 

St 

TABLE 

/MV 

SM 

TABLE 

/MV 

SNN 

TABLE 

/MV 

SC 

TABLE 

/MV 

SP 

TABLE 

/MV 

SC 

TABLE 

/MV 

SR 

TABLE 

/MV 

ST 

TABLE 

/MV 

su 

TABLE 

/MV 

sv 

TABLE 

/MV 

sw 

TABLE 

/MV 

sx 

TABLE 

/MV 

SY 

TABLE 

/MV 

sz 

TABLE 

/MV 

so 

TABLE 

/MV 

SI 

TABLE 

/MV 

S2 

TABLE 

/MV 

S3 

TABLE 

/MV 

SA 

TABLE 

/MV 

S5 

TABLE 

/MV 

S6 

TABLE 

/MV 

S7 

TABLE 

/MV 

S8 

TABLE 

/MV 

S9 

TABLE 

/MV 

SEGL 

TABLE 

/MV 

SKARAT 

TABLE 

/MV 

SLBRAC 

TABLE 

/MV 

SLKRT 

TABLE 

/MV 

SLPAR 

TABLE 

/MV 

SMINUS 

TABLE 

/MV 

SPER 

TABLE 

/MV 

SPLUS 

TABLE 

/MV 

SPOUND 

TABLE 

/MV 

SRBRAC 

TABLE 

/MV 

SRKRT 

TABLE 

/MV 

SRPAR 

TABLE 

/MV 

S  SCRUB 

TABLE 

/MV 

SSL ASH 

TABLE 

/MV 

SSTAR 

TABLE 

/MV 

STILCA 

TABLE 

/MV 

CHAR, Cl/, 15, RECO 
CHAR, C2/, 15, RECO 
CHAR,C3/» 15, RECO 
CHAR,C4/,15,RECD 
CHAR, C5/, 15, RECO 
CHAR,C6/,  15,RECD 
CHAR,C7/,  15, RECO 
CHAR  ,C8/, 15  »RECD 
CHAR, 01/, 15, RECO 
CHAR, 02/, 1 5 , RECO 
CHAR*D3/»15»RECD 
CHAR, 04/,  15, RECO 
CHAR, D5/»15,R ECO 
CHAR, 06/, 15, RECO 
CHAR, D7/, 15, RECO 
CHAR, 08/, 15, RECO 
CHAR, D9/,15, RECO 
CHAR, 63/, 15, RECO 
CHAR, EA/, 15, RECO 
CHAR, E5/, 15, RECO 
CHAR, E6/, 15, RECO 
CHAR, E7/, 15, RECO 
CHAR, E8/, 15, RECO 
CHAR, E9/, 15,  RECO 
CHAR, FO/, 15, RECO 
CHAR, FI/, 15, POST  ST 
CHAR, F2/, 15, RECO 
CHAR,F3/»15,RECD 
CHAR, FA/,  15, RECO 
CHAR, F5/,  15, RECO 
CHAR  *F6/ ,  15, RECO 
CHAR, F7/,  15, RECO 
CHAR,F8/,15,RECD 
CHAR»F9/,15,RECD 
CHAR, FE/,  15, RECO 
CHAR,7C/,15,RECD 
CHAR, CF/, 15, RECO 
CHAR, £E/, 15, RECO 
CHAR,CD/,15»P0STST 
CHAR , EO/ »  15, RECO 
CHAR, CB/,  15, RECO 
CHAR, CE/,  15, RECO 
CHAR, FB/,  15, RECO 
CHAR,DF/,15,RECD 
CHAR, CC/, 15, RECO 
CHAR,D0/,15,P0STST 
CHAR, 72/,  15, RECO 
CHAR, El/, 15,P0STST 
CHAR, OC/, 15, RECO 
CHAR, DO/,  15, RECO 
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CK  TABLE  /MV 

SBOX  TABLE 

SCIRC 
SEL IPS 
SPBCX 
STRAP 
STR  I 
RSA 
RSB 
RSC 
RSD 
RSE 
RSF 
RSG 
RSH 
RSI 
RSJ 
RSK 
RSL 
RSM 
RSN 
RSO 
RSP 
RSQ 
RSR 
RSS 
RST 
RSU 
RSV 
RSW 
RSX 
RSY 
RSZ 
* 

* 

****PAD  TABLE**** 

* 

* 

PACT  ECU 

TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 


CHAR ,EF/ 

,15 

♦  RECD 

CHAR, 73/ 

,  15 

,RECD 

CHAR, 74/ 

.  15 

,  RECD 

CHAR ,76/ 

,15 

,RECD 

CHAR, 77/ 

,  15 

,RECO 

CHAR, 78/ 

,15 

,RECD 

CHAR, 75/ 

,15 

,RECD 

CHAR, 81/ 

,15 

,RECD 

CHAR, 82/ 

» 15 

,  RECD 

CHAR, 83/ 

,15 

,RECD 

CHAR, 84/ 

,  15 

,RECD 

CHAR, 85/ 

,15 

,RECD 

CHAR, 86/ 

♦  15 

,  RAZER 

CHAR, 87/ 

,15 

,RAZER 

CHAR, 88/ 

,  15 

,  RECD 

CHAR, 89/ 

,15 

,RECD 

CHAR, 91/ 

*15 

, RAZER 

CHAR, 92/ 

,15 

,RECD 

CHAR, 93/ 

,15 

,R£CD 

CHAR, 94/ 

,15 

,  RECD 

CHAR, 95/ 

,  15 

,RECD 

CHAR, 96/ 

,  15 

,RECD 

CHAR, 97/ 

,15 

,  RAZER 

CHAR, 98/ 

.15 

.RAZER 

CHAR, 99/ 

,15 

,RECG 

CHAR  » A2/ 

,15 

,RECD 

CHAR , A3/ 

,  15 

,RECD 

CHAR  » A4/ 

,15 

,RECD 

CHAR.A5/ 

,15 

,RECD 

CHAR,A6/ 

,  15 

,  RECD 

CHAR,A7/ 

,15 

,  RECD 

CHAR , A8/ 

,15 

.RAZER 

CHAR  »  A9/ 

,15 

,  RAZER 

L5,DK 
L5  »  SDP 
L5, STP6 
15, STP5 
L5 , S3MBR 1 
15, SCMG 
L5*KVXYM 
L5, SETXX 
L5 , SEGC6M 
L5, SCMOQ8 
L5,G6ETST 
L5, S2MRZ 


02 


04 

05 

06 

07 

08 

09 

OA 

OB 


/MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 
TABLE  /MV, 


♦ 

♦ 
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TABLE 

15, SPRMA 

CC 

TABLE 

15  »  SBARMK 

00 

TABLE 

15  *  S3M8 

OE 

TABLE 

15 » SUMAM 

OF 

TABLE 

15,  SRPRM 

10 

TABLE 

15»  SRPRM 

TABLE 

15,SSM 

12 

TABLE 

15»SSM 

TABLE 

15,  SCOMAM 

14 

TABLE 

15»SAMST1 

15 

TABLE 

15»  SCMEG 

16 

TABLE 

15,  S7MGK 

17 

TABLE 

15*  XMK 1 

18 

TABLE 

15  »  S 1MAK 

19 

TABLE 

15  *  SLMEK4 

1A 

TABLE 

15, STPE 

IB 

TABLE 

15*  SVM 

1C 

TABLE 

15, SVM 

TABLE 

15*TEST5 

IE 

TABLE 

15, SFE 

IF 

TABLE 

15, SFME 1 

20 

TABLE 

15, OQ 

21 

TABLE 

15»S0MH 

22 

TABLE 

15, F IM£i 

23 

TABLE 

15  »KNYM l 

TABLE 

15, AHSTR 

25 

TABLE 

15, SBM5 1 

26 

TABLE 

15, SUM  XX 

27 

TABLE 

15, SK5 

28 

TABLE 

15 , SNMA 

29 

TABLE 

15,SRPRMJ 

2A 

TABLE 

15, STPA 

2B 

TABLE 

15, SE 

2C 

TABLE 

15 , STPH8 

20 

TABLE 

15, STPK 1 

2E 

TABLE 

15, SJ 

2F 

TABLE 

1 5  »  S  T  P  M 

30 

TABLE 

15 , SUM JU 

31 

TABLE 

15, SXMST 1 

32 

TABLE 

15 , SAMK 1 

3  3 

TABLE 

15 , S9MG 

34 

TABLE 

15, S9MK 

35 

TABLE 

15, TPLUSM 

36 

TABLE 

15, SA7 

TABLE 

15,SCPTX 

38 

TABLE 

15,RSX 

39 

TABLE 

15, SPCUND 

3A 

**♦*4  DIRECTION  TABLE**** 


♦ 


* 

A  A  A  A 
AAA 
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TABLE  /SS, TEMP, CO/, C, AAA 
EQU  * 

TABLE  15,RECO 
TABLE  15, STPM 
TABLE  15, S23MB 
TABLE  15,S23MBP 
TABLE  15, SMC 
TABLE  15 , S  S8M 
TABLE  15 , SGC69M 
TABLE  15 , S  S5B9M 
TABLE  15, SGC6M 
TABLE  15 , SBDPR 
TABLE  15  ,  SMNVi 
TABLE  15, SM1M 
TABLE  15 , SBARM 
TABLE  15 , S2MR  Z 
TABLE  15 , S3MB 
TABLE  15, S3MBR 
TABLE  15,STP6 
TABLE  15, $24 
TABLE  15, SRPRM 
TABLE  15, OK 
TABLE  15 , S7MGK 
TABLE  15, STPA 
TABLE  15 , S 1MAK 
TABLE  15 , SNM A 
TABLE  15, SMLC 
TABLE  15 , SCCM AM 
TABLE  15,SBARMK 
TABLE  15 , S  SM 
TABLE  15, S9MK 
TABLE  15 , SCMEG 
TABLE  15, SFE 
TABLE  15, SLMEK4 
TABLE  15, SUM JU 
TABLE  15, S5 
TABLE  15, STP5 
TABLE  15,SK5 
TABLE  15 , STPH8 
TABLE  15 , SVM 
TABLE  15, SOMH 
TABLE  15 , SUM AM 
TABLE  15, STPJ 
TABLE  15, SGSCRB 
TABLE  15 , S3SCRB 
TABLE  15, BR 
TABLE  15 , SBDPR  1 
TABLE  15, SLKR  TM 
TABLE  15 , SRPRM J  2E 

TABLE  15 , SGS 
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TABLE 

15 

»  SGSC6M 

TABLE 

15 

t  SCMCG8 

TABLE 

15 

»  S  8 

32 

TABLE 

15 

tSG 

33 

TABLE 

15 

»  S9 

34 

TABLE 

15 

.S3 

35 

TABLE 

15 

.SASTAR 

36 

TABLE 

15 

,SCC 

37 

TABLE 

15 

.  SA7 

38 

TABLE 

15 

»  SCG 

39 

TABLE 

15 

»  SG81 

TABLE 

15 

»  SC23M8 

TABLE 

15 

»  SC9 

TABLE 

15 

♦  S9LC1 

TABLE 

15 

.  SG9M 

TABLE 

15 

»  SCRPT 

TABLE 

15 

»RSC 

TABLE 

15 

♦  SCPFP 

TABLE 

15 

»  SCPEL 

TABLE 

15 

♦  RSS 

TABLE 

15 

♦  RSV 

TABLE 

15 

.  SCPNRZ 

TABLE 

15 

»RSZ 

TABLE 

15 

»SE 

TABLE 

15 

*  SCPGQ 

TABLE 

15 

.  S8LCV 

TABLE 

15 

.  SEQ 

* 


****SET 

* 

OF  ESCAPES**** 

* 

AHSTRX 

TABLE 

/EX*  XAHS  TR  »  0/ 

KNY 

TABLE 

/EX, XKNY  *  0/ 

FI 

TABLE 

/EX  »  XF I »  C / 

KVXY 

TABLE 

/EX*  XKVXY.O/ 

PW 

TABLE 

/ EX , XPto  »  0/ 

PWIN 

TABLE 

/EX, XMW I N» 0/ 

PWi 

TABLE 

/EX »  XPVi  1,0/ 

PCSTST 

TABLE 

/EX, XPOST ,0/ 

RAZER 

TABLE 

/EX, XRAZE , 0/ 

RECD 

TABLE 

/EX,XRECC,0/ 

SCP 

TABLE 

/EX,XSCP,0/ 

SMNW 

TABLE 

/EX, XSMNW ,0/ 

SP1M 

TABLE 

/EX, XSM1M,0/ 

SRPRM 

TABLE 

/EX,XSRPRM,0/ 

SSM 

TABLE 

/EX, XSSM,0/ 

SVM 

TABLE 

/EX, XSVM , 0/ 

TEST  l 

TABLE 

/EX, XTEST1,G/ 

TEST3 

TABLE 

/EX, XTES  T3, 0/ 

TPLUS 

TABLE 

/EX, XTPLUS, 0/ 

3A 

38 

3C 


49 

4A 
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S8LCVX  TABLE  /EX, XS8LCV,0/ 

SRLCX  TABLE  /EX,XSRLC,0/ 

S4MK1X  TA8LE  /EX, XS4MK  1 , 0/ 

* 

♦ 

♦♦♦♦ENTRY  switch**** 

* 

* 

GPSW  TABLE  /S S, CUS P , CO/ , 0 ,GPSWTCH 

GPSWTCH  EQU  * 

TABLE  15 , SPER 
TABLE  15 , SXHBL 
TABLE  15, S4 
TABLE  15, SK 
TABLE  15, AAAA 
TABLE  15  »KVXYM 
TABLE  15,PADEX 
TABLE  15 , T  PLUSM 
TABLE  15 , SBM  5 
TABLE  15, SJMU 
TABLE  15,SUMJU1 
TABLE  15, SMI 
TABLE  15, SXMSTR 
TABLE  15, SCMCQ8 
TABLE  15, SCPNU 
TABLE  15 ,RSB 
TABLE  15 ,R  SC 
TABLE  15,RSE 
TABLE  15 , R  SF 
TABLE  15,RSG 
TABLE  15, RSI 
TABLE  15»RSJ 
TABLE  15 , R  SL 
TABLE  15,RSM 
TABLE  15 ,R  SN 
TABLE  15»RS0 
TABLE  15.RSR 
TABLE  15 ,RSS 
TABLE  15 , R  SU 
TABLE  15,RSV 
TABLE  15 , R  SW 
TABLE  15,R  SY 
TABLE  1 5 , R  SZ 
TABLE  15, SA 
TABLE  15, SG 
TABLE  15, SM 
TABLE  1 5 , SNN 
TABLE  15, SP 
TABLE  15, SR 
TABLE  15, SU 
TABLE. 15, SC 
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TABLE  15,  S8 
TABLE  15  »  S  STAR 
TABLE  15,SSCRUB 
TABLE  15, DK 
TABLE  15,RSA 
TABLE  15, SE 

* 

ENDMARK  ECU  * 

ENC 


REC  RCS’S 


AHSTR1 


♦  FUNCTION  . . ~  ■■■  . . . . . ‘ 

* 

♦DISTINGUISHES  AMONG  3-STRCKE  A,  H,  K,  AND  ♦  BASED  ON  POSITIONS  OF 
♦STARTING  AND  ENDING  POINTS 
* 

* 

* 

♦  CALL 

♦  RCS  AHSTR 1 A , ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  R9-R14 
* 

* 


USING 

XR6 , R6 

EXO 

EQU 

REGS 

C 

D6 

DSECT 

XR6 

CS 

OF 

XYEP 

ECU 

X  *  40  * 

XYSP 

ECU 

X  •  4A  * 

XSPI 

ECU 

X'  72* 

YSP I 

ECU 

X '  7C ' 

XEPI 

YEPI 
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ECU  X ' 86  * 

ECU  X*90* 

DS  3F 

DS  26H 

DS  20C 

CS  3F 

DS  IH 

DS  2C 

DS  3H 

P  CS  1C 

CHAR  DS  1C 

AHSTR1  BOX 

♦R1C  IS  FIRST  VERTICAL  STROKE  REF 
♦Rll  IS  SECOND  VERTICAL  STROKE  REF 
♦R12  IS  HORIZONTAL  STROKE  REF 
*IS  THIRD  STROKE  HORIZONTAL? 

CLI  P  »  X • G2 • 

BC  8,H3 

♦NO,  IS  FIRST  HORIZONTAL? 

LA  R 1 1 , A ( R6 ) 

LH  R7 , X  EP I ( R6 ) 

SH  R7,XSPI(R6) 

LPR  R7,R7 

LH  R9  »  YEP  I <  R6 I 

SH  R9, YSPI { R6 ) 

LPR  R9,R9 

CR  R7»R9 

BC  2, HI 

♦NO,  SECOND  STROKE  IS  THE  HORIZONTAL 
LA  R12.2CR6) 

LA  RlO,C(R6) 

B  HDONE 

♦THIRD  STROKE  IS  THE  HORIZ 


H3 

LA 

R12, AIRfc  ) 

LA 

R11,2(R6) 

LA 

R 10, 0 ( R6  ) 

B  HDONE 

♦FIRST  STROKE  IS  THE  HORIZ 
HI  LA  R 1 2, G ( R6 ) 

LA  R 1C , 2 ( R6  ) 

HDONE  EQU  ♦ 

♦TEST  FOR  K 

♦ARE  BOTH  VERT  ENDPTS  AT  THE  LEFT 

TM  XYEP  +  HRIOJ.X'OB' 

BC  12 , NCTK 

TM  XYEP  +  KR11)  ,X'03* 

BC  1 , SK  X 

TM  XYSP+1(R10),X'03' 

BC  12 ,NOTK 

♦IS  HORIZ  START  OR  END  POINT  IN  UPPER  RIGHT? 
CLI  XYEP  +  KR12)  ,X*CO' 
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BC  8*  ETCP 

CLI  XYEP+1(R12)*X*C1* 

BC  8»ETGP 

CLI  XYSP  +  KR12)  ,X,OC* 

BC  8, STOP 

CLI  XYSP+1(R12),X«01* 

BC  6,N0TK 

♦IS  TOP, RIGHT  PART  OF  HCRIZ  ABOVE  TOP  OF  SECOND  VERT? 


STOP 

EGU 

* 

LH 

R13»  YSP I (R12) 

B 

ETOP  1 

ETOP 

EGU 

* 

LH 

R13, YEPI (R12) 

ETOP1 

ECU 

* 

CH 

R13,YSPI(Rll) 

BC 

2, SKX 

NOT  K 

EGU 

* 

♦NOT  K,  TEST  FOR  A, H,  OR  ♦ 

♦ARE  START  PTS  CLOSE  COMPARED  TO  ENDPTS 
LH  RI3,XEPI(RIC) 

SH  R13,XEPI (Rii) 

LPR  R 13, R 1 3 

SRL  R13, 2  1/4  MAG  OF  ENDPT  DIFF 

LH  R14,XSPI (RIO) 

SH  R14,XSPI (Rll) 

LPR  R 14, R 14 

CR  R 14, R 13 

BC  4, SAX 

♦NO,  DC  VERTICAL  STROKES  CROSS? 

LH  R13,XEPI(R1C) 

CH  R13,XEPI (Rll) 

BC  2»ENDIR 

LH  R13,XSPI (RIO) 

CH  R13,XSPI (Rll) 

BC  2,SSTARX 

B  SHX 

END 1R  ECU  ♦ 

LH  R13,XSPI (RIO) 

CH  R13,XSPI (Rll) 

BC  4, SSTARX 

B  SHX 

SAX  EGU  ♦ 

MV  I  CHAR,C*  A* 

BC  15,8EXIT1 

SHX  ECU  ♦ 

MV  I  CHAR ,C  *  H  * 

BC  15, BEX  I Tl 

SKX  EQU  ♦ 

MV  I  CHAR , C  *  K  * 

BC  15.BEXIT1 

ECU  ♦ 


SSTARX 
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MVI  CHAR  t  X  *  DC  * 
BEXIT1  MVI  P,X'CC* 

BEX  I T  EXC 
ENC 


BFI 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  3-STROKE  F,  I,  AND  ♦  BASED  CN  POSITIONS  OF  START¬ 
LING  POINTS 
* 

♦ 

♦ 

♦  CALL 

♦  RCS  BF  IA»  ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  RI2*  RI3,  R15 
* 

* 

USING  XR6*R6 
REGS 

EXO  ECU  0 

06  DSECT 

XR6  CS  OF 

XYSP  ECU  X '  4A  •  XYS  (R6) 

DS  3F 

CS  26H 

DS  20C 

CS  3F 

DS  1H 

CS  2C 

DS  3H 

DS  1C 

CHAR  DS  1C 

BFI  BOX 

FI  SR  R15,R15 

LA  R12f  2 

LA  R  13»  4 

LA  R7,0(R6,R15J 

TM  XYSP+1(R7),X*03* 


FII 
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MVI 
BC 
MV  I 
TM 
BC 

8XLE 
MV  I 

FIX  BEXIT 

END 


CHAR  » X  *  DC  * 

8,  FIX 
CHAR  t  C  '  I  ' 
XYSP+1(R7),X*CC' 
l, FIX 

R15,R12,FI1 

CHAR,C’F* 

EXC 


ASTERISK 


BHITE 


♦FUNCTION 

* 

♦DISTINGUISHES  BETWEEN  TALL  AND  SHORT  CHARACTERS.  A  SHORT  CHARACTER 
♦IS  ONE  SHORTER  THAN  3/4  OF  THE  NORMALLY  EXPECTED  CHARACTER  HEIGHT 
♦ ( * CHAREC*  SETS  DYM  =  3/2  NORMAL  CHARACTER  HEIGHT). 

* 

* 

* 

♦CALL 

♦  RCS  BH IT EA» ESHORT  tETALL 

♦EXIT  SHORT  WHEN  THE  CHARACTER  IS  SHORT 
♦EXIT  TALL  WHEN  THE  CHARACTER  IS  TALL 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7»  R8 
♦ 


* 


USING 

REGS 

XR6 

EXO 

ECU 

C 

EX4 

ECU 

4 

C6 

CSECT 

XR6 

cs 

OF 

DS 

3F 

DS 

2CH 

YTC 

CS 

1H 

Y8C 

DS 

1H 

DS 

4H 

DS 

20C 

CS 

3F 

CS 

IH 
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DS 

2C 

DS 

3H 

DS 

56C 

DS 

I4H 

DYM 

DS 

1H 

BHITE 

BOX 

LH 

R  7  *  Y  T  C 

SH 

R7,YBC 

LH 

R8,0YM 

SRL 

R8*  1 

CR 

R7,R8 

BC 

4,  LOX 

HIX 

BEXIT 

EX4 

LCX 

BEXIT 

EXO 

END 

3/2  NORM  CHAR  HITE 
3/4  NCRM  CHAR  HITE 


BSDP 


♦FUNCTION 

* 

♦  DISTINGUISHES  AMONG  'D  »  P,  5,  ANO  SCRIPT  B  8ASED  ON  THE  POSITION 
♦OF  THE  LAST  STROKE  ENDPOINT «  THE  POSITION  OF  THE  2ND  REL.  Y  MAX.  IN 

♦  THIS  STROKE »  ANO  THE  NO.  OF  STROKES 

♦ 

* 

* 

♦CALL 

♦  RCS  BSDPA*  ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

* 

* 

♦ 

♦INPUT  REGISTER.  R6 

* 

♦INTERNAL  REGISTERS.  R7,  RI5 
* 

* 


USING 

REGS 

XR6,R6 

EXO 

ECU 

0 

D6 

DSECT 

XR6 

DS 

OF 

XYEP 

ECU 

X*  40* 

-  XYE 

DS 

IF 

PAD 

DS 

IF 

DS 

IF 
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DS 

11H 

SN 

DS 

IH 

DS 

14H 

CS 

20  C 

DS 

3F 

DS 

1H 

DS 

2C 

DS 

3H 

P 

DS 

iC 

CHAR 

DS 

1C 

DS 

54C 

DS 

2  IH 

DS 

IF 

DS 

6C 

DS 

IH 

DS 

IF 

DS 

20C 

DS 

33H 

CYMAX 

DS 

IOC 

ESDP 

BOX 

CLI 

PAD+3*  X  *  01 • 

BC 

8*  SDM51 

MV  I 

PAD+3 ,  X • 0 1 • 

SDP 

LH 

R 1 5  *  SN 

8CT 

R15»  SDP 1 

SDP 1 

SLL 

R  15*  1 

LA 

R7,0{R6,R15) 

TM 

XYEP+1IR7) ,X* 

MV  I 

CHAR  »C ' P ' 

BC 

12*SDP> 

SDM5 

MV  I 

P, X*  C0» 

MV  I 

CHAR  »C ' D  * 

CLI 

SN+ 1  *  X  *  02  * 

BC 

8*  SOSD 

CLI 

QYMAX+ 1 , X  *  00  * 

BC 

8*  SOSD 

MV  I 

CHAR, X*  82* 

B 

SDPX 

SDM51 

CLI 

P*  X *  C2 • 

MV  I 

CHAR , C  *  5 • 

BC 

8, SDPX 

MV  I 

CHAR, C'D* 

SDSC 

ECU 

* 

SDPX 

8EXIT 

EXO 

END 

LC  B 
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BSMNW 


♦FUNCTION 

« 

♦DISTINGUISHES  AMONG  SCRUB,  N,  W,  SCRIPT  Y,  AND  A  CHARACTER  GROUP  ( M , 
♦SCRIPT  M,  SCRIPT  W,  SCRIPT  Y)  BASED  ON  NO.  OF  DIRECTIONS,  ASPECT  RATIO 
♦AND  THE  POSITION  OF  THE  FIRST  REL.  Y  MIN. 

♦ 

* 

* 

♦CALL 

♦  RCS  BSMNWA, 6CHAR ,EGRCUP ,  ERAZE 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦EXIT  GROUP  WHEN  THE  CHARACTER  IS  M,  OR  SCRIPT  M,  W,  OR  Y 

♦EXIT  RAZE  WHEN  THE  CHAR.  IS  RECOGNIZED  AS  A  SCRIPT  Y,  AND  THE  CHAR 

♦  CENTER  MUST  BE  RAISED 

♦ 

♦ 

♦ 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R?,R8 
* 

* 


USING 

REGS 

XR6, R6 

EXO 

ECU 

0 

EX4 

ECU 

4 

EX8 

ECU 

8 

C6 

CSECT 

XR6 

DS 

OF 

CS 

3F 

DS 

IOH 

N 

DS 

IH 

CS 

5H 

cxc 

CS 

1H 

CS 

5H 

ASPR 

CS 

1H 

DS 

3H 

CS 

2CC 

DS 

3F 

CS 

1H 

CS 

2C 

CS 

3H 

CS 

1C 

CHAR 

CS 

1C 

CS 

6C 

XSP 

DS 

IOC 

CS 

38C 

CS 

2  1H 

CS 

IF 
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CS  6C 

CS  1H 

CS  IF 

DS  20C 

CS  33H 

CYMAX  CS  IOC 

CYMIN  EQU  QYMAX+5 

CS  2H 

YMAXX  CS  10H 

BSMNW  BOX 

SMNW  CLI  N+ 1 »  X*  C5 ' 

BC  A, TESTA 

BC  8 1 SMLCX 

MV  I  CHAR  »  X • 72 '  SCRUB 

B  SMNWX 

TESTA  CLI  ASFR+ltX'OA* 

MV  I  CHAR  »C  *  W  • 

8C  A»  SMNWX 

*N  IF  A  SP  RATIO  GTR  THAN  2 
CLI  ASPR  +  1 » X • 08* 

BC  2*  SNLCY 

♦ARE  THE  SP  AND  2ND  MAX  CLOSER  THAN 
♦3/8  CHARACTER  WIDTH 

LH  R7tDXC 

SRL  R7,2  1/A  DELTA  X 

LR  R8.R7 

SRL  R8 » 1 

AR  R7,R8  '  3/8  DELTA  X 

LH  R8»YMAXX+2 

SH  R8  *  X SP 

L  PR  R8,R8 

CR  R8 » R  7 

BC  A, SNLCY 

MV  I  CHAR  » C • W '  NO 

B  SMNWX 

SNLCY  MV  I  CHAR  »C  *  N  * 

CLI  QYMIN»  X*  C3* 

BC  8, SMNWX 

MV  I  CHAR  t  X  *  A8  *  LC  Y 

BEXIT  EX 8 

SMNWX  BEXIT  EXO 

SMLCX  BEXIT  EX A 

END 
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BSRPRM 

♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  R,  3,  5,  RIGHT  BRACKET,  AND  2  GROUPS  OF  CHARACTERS 
♦(D,  P),  (RIGHT  PAREN.,  COMMA,  APOSTROPHE)  BASED  ON  THE  IDENTITY  OF  THE 
♦THE  PREVIOUS  SUBCHARACTER,  THE  NO.  OF  GECM.  CORNERS,  AND  THE  POSITION 
♦OF  A  CORNER 
* 

* 

* 

♦CALL 

*  RCS  BSRPRMA,ECHAR,EDP»EPAREN 
♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 
♦EXIT  DP  WHEN  THE  CHARACTER  IS  A  D  CR  P 

♦EXIT  PAREN  WHEN  THE  CHARACTER  IS  A  RIGHT  PAREN.,  COMMA,  OR  APOSTROPHE, 

*  TEST  SIZE  AND  POSITION 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  R8 
* 

* 


USING 

XR6, R6 

EXO 

ECU 

0 

EX4 

ECU 

4 

EX8 

ECU 

REGS 

8 

D6 

DSECT 

XR6 

DS 

OF 

DS 

IF 

PAO 

DS 

IF 

DS 

IF 

DS 

20H 

YTC 

DS 

LH 

YBC 

DS 

1H 

DS 

4H 

DS 

20C 

DS 

3F 

DS 

IH 

DS 

2C 

NCUSP 

DS 

1H 

DS 

2H 

P 

DS 

1C 

CHAR 

DS 

1C 

DS 

54C 

CS 

2  1H 

DS 

IF 

DS 

6C 

DS 

1H 

DS 

IF 
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CS 

IOC 

YC 

CS 

IOC 

8SRPRM 

8CX 

CLI 

PA0+3,X« 11* 

BC 

8,  DPMR 1 

SRPRM 

CLI 

P»  X • G I  * 

BC 

8, CPMR 

CLI 

P ♦ X  *  02  * 

MV  I 

CH AR  ,  C  *  5  * 

BC 

8  *  SRPRM  X 

CLI 

P  t  X • CB  ' 

MV  I 

CHAR  »  C  *  R ' 

BC 

8*  SRPRMX 

MV  I 

PAC+3,  X ' 10* 

SRPRM 

CLI 

NCUSP+ 1 »  X ' 03* 

MV  I 

CHAR  *C ' 3  * 

BC 

10  ,  SRPRMX 

CLI 

NCUSP+ 1 »  X  *  01  * 

R8RAKX 

MV  I 

CHAR  »  X • DF • 

RIGHT 

BC 

2, SRPRMX 

MV  I 

CHAR,X*CD* 

RIGHT 

BC 

4 1  SRPM X 1 

*3  IF  T 

HE  CUSP  IS  IN  THE  MIDDLE 

LH 

R7 1 YTC 

SH 

R7,YBC 

SRL 

R 7 » 1  1/2  DELTA  Y 

LR 

R8,R7 

SRI 

R 8 1 1  1/4  DELTA  Y 

AH 

R8*YBC 

AR 

R7  »  R  8 

CH 

R8,YC 

BC 

2 » R8RAK  X 

CH 

R7,YC 

MV  I 

CHAR  tC ' 3  * 

MIDDLE 

BC 

10, SRPRMX 

BC 

4,RBRAKX 

CPMR 

MV  I 

P,X'CC* 

DPMR1 

CLI 

P,X*  01* 

MV  I 

CHAR , C ' R  * 

BC 

8, SRPRMX 

MV  I 

PAO+3, X  *  1 1 ' 

DPMR  1 

BEXIT 

EX4 

SRPRMX 

BEXIT 

EXO 

SRPMX1 

BEXIT 

END 

EX  8 

BRACKET 

PARENTHESIS 
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BSSM 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  S ,  5,  8.  9,  AND  $  BASED  ON  THE  GENERAL  IDENTITY  OF 
♦THE  PREVIOUS  SUBCHARACTER,  THE  POSITION  OF  THE  ENDPOINT,  THE  NO.  OF 
♦DIRECTIONS,  THE  FIRST  DIRECTION,  AND  THE  NO.  OF  TIME-CORNERS 
* 

* 

* 

♦  CALL 

♦  RCS  BSSMA,ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦ 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTER.  R7 
♦ 

* 


USING 

REGS 

XR6 , R6 

EXO 

ECU 

0 

C6 

DSECT 

XR6 

DS 

OF 

DS 

IF 

PAD 

CS 

IF 

CODE 

CS 

IF 

DS 

10H 

N 

DS 

1H 

DS 

7H 

XRC 

CS 

IH 

XLC 

DS 

1H 

CS 

6H 

XYE 

CS 

IOC 

CS 

IOC 

CS 

3F 

DS 

1H 

CS 

2C 

NCUSP 

DS 

1H 

CS 

2H 

P 

DS 

1C 

CHAR 

DS 

1C 

TEMP 

CS 

1C 

OS 

53C 

DS 

2 1H 

CS 

IF 

DS 

6C 

DS 

1H 

CS 

IF 
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xc 

DS 

IOC 

OS 

IOC 

cs 

17H 

NTCUSP 

DS 

1H 

8SSM 

BOX 

CL  I 

PAD+3,X» 13* 

BC 

8  , COLDCL 

SSM 

MVC 

TEMP (  1 )  »  P 

TR 

TEMP ( 1 ) »  LL 

SR 

R7,R7 

IC 

R7,TEMP 

EX 

0,LLL(R7) 

SSMl 

MV  I 

P  *  X  *  05  ' 

MV  I 

PAD  +  3 »  X  *  12* 

SSM 

TM 

XYE+ 1 »  X*  08* 

ec 

8, S8S8 

♦NOT  5 

IF  1ST  ANGLE  IS  1 

TM 

CODE  »  X  *  80 * 

ec 

I »  SSM2 

TM 

CODE ,  X • 40 ' 

BC 

1,S9 

♦TEST  FOR  TIME 

CORNERS 

SSM2 

EQU 

* 

CLI 

NTCUSP+ 1 »  X • 0 1  * 

BC 

2 »  S5 S5 

2 

BC 

4»  SSSS 

NONE 

♦I  TIME 

CORNER 

t  CHECK  FOR  GECM 

CORNERS 

CLI 

NCUSP+ 1 »  X • 02 ' 

ec 

2»  S5S5 

BC 

4,  SSSS 

LH 

R7  *  XRC 

SH 

R7»  XLC 

SRL 

R7,l  1/2  OELTA 

X 

AH 

R7*XLC 

CH 

R7.XC+2 

BC 

2.S5S5 

LEFT 

BC 

12»  SSSS 

RIGHT 

IL 

DS 

OH 

DC 

X'OO* 

DC 

X  *  04  • 

DC 

X*  IC 

DC 

2X*0C» 

DC 

3X*  08* 

DC 

3X*  CC* 

DC 

X'CC' 

LLL 

CS 

OH 

BC 

15 » SSM 1 

BC 

15  »  STPCOL 

BC 

15  »  S8S8 

BC 

15, DQLCOL 

BC 

15, S5S5 
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♦POSSIBLE  9, 

TEST  ANGLES*  AND 

S9 

CLI 

N+  1 »  X ' C6 ' 

BC 

4, SSSS 

CLI 

NTCUSP  + 1 »  X • 0 1 ' 

BC 

4, SSSS 

S9S9 

MV  I 

CHAR  ,  C  *  9 ' 

B 

SSMX 

STPOCL 

MV  l 

P,X'OC* 

MV  I 

PAD+3*  X' 13' 

CCLDOL 

MV  I 

CHAR  »  X ' DB ' 

BC 

15, SSMX 

S5S5 

MV  I 

CHAR , C  *  5  * 

BC 

15, SSMX 

SSSS 

MV  I 

CHAR , C ' S  * 

BC 

15, SSMX 

S8S  8 

MV  I 

CHAR , C  *  8 ' 

BC 

15, SSMX 

SSMX 

BEXIT  EXO 

END 

DCLDCL 

DOLLARS 


BSVM 


♦FUNCTION  .  - - ' 

* 

♦DISTINGUISHES  AMONG  V,  W,  AND  5  GROUPS  OF  CHARACTERS  (J,  U)»  (M,  W), 
♦<K,  N,  Y),  (C,  8,  0,  C>»  (U,  8)  BASED  ON  THE  GENERAL  IDENTITY  OF  THE 
♦PREVIOUS  SUBCHARACTER,  THE  ORIGIN  OF  THE  CALL  TO  THIS  ROUTINE  (TEMP 
♦HAS  BEEN  ENCODED  AS  C  IN  • INTERP  *  IF  THE  CHAR  CAN  BE  U),  AND  THE  DIS¬ 
TANCE  BETWEEN  THE  STARTING  AND  ENDING  POINTS 
* 

* 

* 

♦CALL 

♦  PCS  BSVMA,ECHAR»EJU»EMW,EKNY*E080QtEU8 
♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦EXIT  JU  WHEN  THE  CHAR  IS  J,  POTENTIALLY  U 
♦EXIT  MW  WHEN  THE  CHAR  IS  M  OR  W 
♦EXIT  KNY  WHEN  THE  CHAR  IS  K,  N,  OR  Y 

♦EXIT  08CG  WHEN  THE  CHAR  IS  C,  POTENTIALLY  8,  0,  OR  C 
♦EXIT  U8  WHEN  THE  CHAR  IS  U,  POTENTIALLY  8 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,R8,R1C 
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* 

* 


USING 

XR6  *  R6 

EXO 

ECU 

REGS 

0 

EX4 

ECU 

4 

EX8 

ECU 

8 

EX  12 

ECU 

12 

EX  16 

ECU 

16 

EX2C 

ECU 

20 

C6 

DSECT 

XR6 

CS 

OF 

CS 

IF 

PAD 

DS 

IF 

DS 

IF 

CS 

18H 

XRC 

CS 

1H 

XLC 

DS 

1H 

CS 

6H 

CS 

20C 

CS 

3F 

DS 

1H 

CS 

2C 

CS 

3H 

P 

DS 

1C 

CHAR 

CS 

1C 

TEMP 

DS 

1C 

CS 

5C 

XSP 

DS 

IOC 

CS 

IOC 

XEP 

CS 

IOC 

8SVM 

BOX 

CLI 

PAC+3.X* ID* 

ec 

8»KNYXXX 

CLI 

PAD+3,X* IE* 

BC 

8, TESTS 

SVM 

CLI 

P,X*01* 

BC 

8»KNYMMW 

CLI 

P,X*02* 

BC 

8 »  SJMUX X 

CLI 

P »  X*  OB • 

BC 

8  *  MW 1 X 

CLI 

P»  X*  04* 

MV  I 

CHAR  »  C '  W  * 

MV  I 

TEMP»X*C4* 

BC 

15  »  TEST5 

BC 

8 1  SVMX 

SVM1 

MV  I 

PAD+3  »  X  *  1C* 

MV  I 

P,X*  04* 

MV  I 

CHAR  »  C  *  V ' 

BC 

15, SVMX 
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KNYMMW  MVI  P,X*CC» 

KNYXXX  CLI  P,X*Ci* 

8C  8  »  MW  1 X 

MV  I  PAC+3, X* ID*  KNYXXX 

BC  15  »  KN Y 1 X 

**0  VS  U,V  TEST 

♦0  IF  S  TARTPT  AND  ENDPT  ARE  CLOSER  THAN 
*1/2  CH  ARACTER  WIDTH 

♦TEMP  CO  NTAINS  CODE  FOR  RETURN  TO  U  OR  V 
TESTS  LH  R7»  XSP 

SH  R7,XEP 

LPR  R7*R7 

LH  R8,XRC 

SH  R8 » XLC 

LPR  R8,R8 

SRL  R8 , 1 

CR  R7  »  R  8 

BC  4,  SCMX 

♦ENDPT  IN  LEFT  CR  RIGHT  1/4 
SR  RIOfRIC 

IC  RIO, TEMP 

EX  0,T5SW(R10J 


T5SW 

DS 

OF 

BC 

15 , SU JU 1 X 

BC 

15, SVM 1 

SVMX 

BEXIT 

EXO 

SJMUXX 

BEX  IT 

EX4 

MW  1 X 

BEXIT 

EX8 

KNY1X 

BEXIT 

EX  12 

SOMX 

BEXIT 

EX  16 

SUJU1X 

BEXIT 

END 

EX20 

BTEST1 


♦FUNCTION  - 

* 

♦DISTINGUISHES  BETWEEN  TWO  CHARACTER  GROUPS  (8,  SCRIPT  G),  (S-LIKE 
♦CHARACTERS)  BASED  ON  THE  POSITION  OF  THE  ENDPOINT 
* 

♦ 

*  CALL 

*  RCS  BTEST1A,E8G,ESSM 

♦EXIT  8G  WHEN  CHAR  IS  8  OR  SCRIPT  G,  TEST  DIRECTIONS 
♦EXIT  SSM  WHEN  CHAR  IS  S-LIKE,  TEST  FURTHER  WITH  BSSM 

* 
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* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  R15 
* 

* 


USING 

REGS 

XR6.R6 

EXO 

ECU 

C 

EX4 

ECU 

4 

D6 

DSECT 

XR6 

CS 

OF 

XYEP 

ECU 

X '  40  * 

DS 

3F 

DS 

IIH 

SN 

CS 

1H 

DS 

14H 

CS 

20C 

CS 

3F 

CS 

1H 

CS 

2C 

CS 

3H 

DS 

1C 

CHAR 

CS 

1C 

BTESTI 

BOX 

TEST  l 

LH 

R 15, SN 

BCT 

R15.TEST11 

TEST  1 1 

SLL 

R  15,  1 

LA 

R7,0(R6,R15) 

TM 

XYEP+1(R7),X'C8* 

BC 

1, SSMXXX 

MV  I 

CHAR , C*  8* 

BEXIT 

EXO 

SSMXXX 

BEXIT 

END 

EX4 

BTEST3 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  B,  R,  U,  SCRIPT  K,  SCRIPT  X,  AND  A  CHARACTER  GROUP 

*  ( 5  »  B)  BASED  ON  THE  NO.  OF  STROKES.  THE  POSITIONS  OF  STARTING  AND  END¬ 
UING  POINTS,  THE  DIRECTIONS,  THE  POSITIONS  OF  REL.  Y  MAXIMA 

♦ 

* 

* 

♦  CALL 
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*  RCS  BTEST3A,ECHAR,E5B 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 
♦EXIT  5B  WHEN  CHAR  IS  5,  POTENTIALLY  B 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  R8 
* 

* 


USING 

REGS 

XR6 1  R6 

EXO 

ECU 

0 

EXA 

ECU 

A 

D6 

DSECT 

XR6 

DS 

OF 

XYSP 

ECU 

X*  AA* 

XYEP 

ECU 

X*  AO* 

CS 

2F 

CODE 

CS 

IF 

DS 

1IH 

SN 

CS 

1H 

DS 

AH 

cxc 

DS 

IH 

DS 

1H 

XRC 

DS 

1H 

DS 

7H 

XYE 

CS 

IOC 

DS 

IOC 

CS 

3F 

DS 

1H 

CS 

2C 

CS 

3H 

CS 

1C 

CHAR 

DS 

1C 

CS 

5AC 

DS 

2 1H 

DS 

IF 

CS 

6C 

CS 

1H 

CS 

IF 

CS 

20C 

DS 

33H 

CYMAX 

DS 

IOC 

DS 

2H 

YNAXX 

CS 

1CH 

BTEST3 

BOX 

TEST3 

CL  I 

SN  + 1 »  X • 0 1  * 

BC 

8.TEST31 

♦2  STROKE  CHARACTERS 
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LH 

R8,SN 

BCT 

R8,T£ST32 

TEST32 

SLL 

R8,l 

LA 

R8»C(R8»R6) 

MV  I 

CHAR  t  X ' A7 * 

TM 

XYSP  +  1 ( R8 ) »  X  * 

BC 

8.TEST3X 

TM 

XYEP+ l ( R8 ) ♦ X • 

MV  I 

CHAR  *  C  •  B  • 

BC 

UTEST3X 

MV  I 

CHAR , C  *  R  * 

8C 

8  *  TE  ST3X 

♦SINGLE 

STROKE 

CHARACTERS 

TEST31 

TM 

XYE+1»  X*  C2* 

BC 

l  *  SBM5  X 

MV  I 

CHAR  t  C  *  R  • 

RLC 

ECU 

♦ 

CLI 

CODE »  X  *  DC  * 

BC 

8 1  RU 

CLI 

QYMAX+ 1  *  X  *  00  * 

BC 

8,TEST3X 

MV  I 

CHAR  »  X ' 92* 

B 

TEST3X 

RU 

ECU 

* 

LH 

R8,DXC 

SRL 

R8  ♦  l 

LH 

R7,XRC 

SR 

R7*R8 

♦  IS  MAX 

2  IN 

RIGHT  1/2 

CH 

R7  * YMAXX  +  2 

BC 

2t  TEST3X 

MV  I 

CHAR  tC ' U  * 

TEST3X 

BEXIT 

EXC 

SBM5X 

BEXIT 

EX4 

ENC 

LC  X 

C2  * 

02* 

ENC  IN  LEFT  HALF 
END  IN  RIGHT  HALF 

END  IN  RIGHT  HALF 
3130 

K 


NO  t  R 


KNYTST 


♦FUNCTION 

* 


♦DISTINGUISHES  AMONG  3-STROKE  (ALL  VERT)  K, 
♦ITICNS  OF  THE  STARTING  AND  ENOING  POINTS 
* 

* 


N,  AND  Y  BASED  ON  THE  PCS 


* 

♦CALL 
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♦  RCS  KNYTSTA, ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

* 

* 

* 

♦INPUT  REGISTER*  R6 
♦ 

♦INTERNAL  REGISTERS*  R7-R13f  R15 
♦ 


* 


USING 

XR6*  R6 

EXO 

ECU 

REGS 

0 

D6 

DSECT 

XR6 

CS 

CF 

XYSP 

ECU 

X*  AA ' 

XYEP 

ECU 

X*  AO* 

CS 

3F 

CS 

26H 

XYE 

CS 

IOC 

XYS 

CS 

IOC 

CS 

3F 

DS 

1H 

CS 

2C 

CS 

3H 

CS 

1C 

CHAR 

DS 

IC 

KNYTST 

BOX 

SR 

R9*R9 

SR 

R 10*  R  1C 

SR 

RU,R11 

LA 

R 12  *  2 

LA 

R  13*  A 

SR 

R  15*  R 15 

KNYIN 

LA 

R8,0(R6,R15) 

TR 

XYSP+M  1,R8)  ,HHS 

LH 

R7,XYS(R15) 

EX 

0*  HHHS ( R  7 ) 

KNYSN 

CR 

R9*R  12 

BC 

8*  SNX 

LR 

R9 , R  12 

KNYSKY 

TR 

XYEP+1(1,R8)*HHE 

LH 

R7*XYE(R15) 

EX 

0  *  HHHE t R7 ) 

KNYEY 

CR 

R  1C*R12 

BC 

8,  SYX 

LR 

RIO*  R  12 

BC 

15 ,KNY  I 

KNYEN 

CR 

R 1 1 ,  R  1 2 

BC 

8, SNX 

LR 

R1 1 , R 12 
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KNY  I 

BXLE 

R15, R 12 , KNY I N 

SKXX 

EQU 

* 

MV  I 

CHARtC'K* 

. 

ec 

15, BEX  IT2 

SNX 

ECU 

* 

MV  I 

CHAR  ,  C  *  N ' 

8C 

I5,BEXIT2 

SYX 

EQU 

* 

MV  I 

CHAR »C '  Y  * 

BEXIT2 

BEXIT 

EXC 

HHHS 

DS 

OF 

, 

BC 

15 ,KNYSKY 

BC 

15,KNYSN 

HHHt 

DS 

OF 

BC 

15  »KNY I 

BC 

15,KNYEY 

BC 

15 ,KNYEN 

HHS 

DS 

OH 

DC 

2X ' OC • 

DC 

2X ' 04 ' 

DC 

3X  *  00 ' 

DC 

X  *  04 ' 

DC 

8X'CC* 

HHE 

DS 

OH 

DC 

5X  *  00  * 

DC 

2X*  04* 

DC 

X*CO* 

DC 

X*  08* 

DC 

2X  *  04* 

DC 

X»C0* 

DC 

2X *  08 * 

DC 

2X  *  00 * 

END 

KNY1T 


♦FUNCTION 

# 

♦DISTINGUISHES  AMONG  2-STROKE  (1  VERT,  1  V-lIKE)  K,  N,  AND  Y  BASED  CN 
♦THE  POSITIONS  OF  THE  STARTING  AND  ENDING  POINTS 
* 

* 

* 

♦  CALL 

♦  RCS  KNY1TA, ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 
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* 

* 

* 

♦INPUT  REGISTER*  R6 

* 

♦INTERNAL  REGISTERS*  R7*  R8t  R12t  R13*  R15 
* 


USING 

XR6*  R6 

EXO 

EQU 

0 

REGS 

D6 

CSECT 

XR6 

DS 

OF 

XYEP 

ECU 

X  •  40 ' 

XYSP 

ECU 

X  *  4A  * 

cs 

3F 

cs 

26H 

XYE 

DS 

IOC 

XYS 

DS 

IOC 

DS 

3F 

DS 

1H 

DS 

2C 

DS 

3H 

DS 

1C 

CHAR 

DS 

IC 

KNY1T 

BOX 

SR 

R15,R15 

LA 

R 13*  2 

SR 

R12*R12 

KNYli 

LA 

R8«0(R6*R15) 

TR 

XYEP+1(1*R8) »FFE 

LH 

R7*XY£(RI5) 

EX 

0,FFFE(R7) 

KNY1NY 

TR 

XYSP+lt l,R8),FFS 

LH 

R7»XYS(RI5) 

EX 

0»FFFS(R7) 

KNY1J 

CR 

R 12  *  R  1 3 

8C 

8*  NKNY 1 

LR 

R12.RI3 

KNY12 

BXLE 

R 1 5  *  R 13  *  KNY 1 1 

YKNYI 

EQU 

4 

MV  I 

CHAR  »C* Y* 

ec 

15*BEXIT5 

KKNYl 

ECU 

* 

MV  I 

CHAR  »C ' K  * 

BC 

15*BEXIT5 

NKNY1 

ECU 

* 

MV  I 

CHAR  ,C  *  N ' 

BEXIT5 

BEX  I  T 

EXO 

FFE 

DS 

OH 

DC 

8X • 00  * 
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FFFE 


FFS 


FFFS 


DC 

X'08* 

DC 

2X • C  C  * 

CC 

X  *  04 ' 

DC 

X '  08 ' 

DC 

2X  *  0  0 ' 

DC 

X*  €4* 

DS 

OF 

BC 

15  »  KNY INY 

BC 

15 ♦ NKNY I 

BC 

15.KKNY1 

DS 

OH 

DC 

2X  *  00 ' 

CC 

2X*  04' 

CC 

3X*  CC  * 

CC 

X*  04  * 

CC 

8X*  CO* 

DS 

OF 

BC 

15»KNY 12 

BC 

15  »KNY I J 

END 

KVXYT 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  2-STROKE  {ALL  VERT)  K,  V*  X,  AND  Y  BASED  ON  THE 
♦POSITIONS  OF  THE  STARTING  AND  ENDING  POINTS 
* 

* 

* 

♦CALL 

♦  RCS  KVXYTAf  ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7,  R8t  R12,  RL3.  R15 
* 

* 


USING 

XR6*R6 

EXO 

EQU 

REGS 

0 

06 

DSECT 

XR6 

DS 

OF 
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XYEP 

EQU 

X*  40  * 

XYSP 

ECU 

X '  AA  * 

CS 

3F 

DS 

26H 

XY6 

CS 

IOC 

CS 

IOC 

DS 

3F 

DS 

1H 

DS 

2C 

DS 

3H 

DS 

1C 

CHAR 

CS 

1C 

KVXYT 

BOX 

SR 

R 15»  R 15 

LA 

R 1 3 1  2 

SR 

R 12 1 R 12 

KVXY1 

LA 

R8,0(R6,R15) 

TR 

XYEP+1 ( 1 »R8) »fcEE 

LH 

R7 1 XYE ( R 15 ) 

EX 

0*  EEEE (R7 ) 

KXY 

TM 

XYSP+1(R8)» X*C3* 

BC 

1,  KKVXY 

BC 

12*KVXY2 

KVXY3 

CR 

R  12*R13 

BC 

8t VKVXY 

CR 

R15»R13 

BC 

8, XKVXY 

LR 

R12,R13  SET 

KVXY2 

BXLE 

R15,R13*KVXY1 

XKVXY 

EQU 

* 

MV  I 

CHAR  »C*  X ' 

BC 

15*  BEX  I T6 

KKVXY 

EQU 

* 

MV  I 

CHAR  *C  *  K* 

BC 

15*BEXIT6 

VKVXY 

EQU 

* 

MV  I 

CHAR  *C  *  V ' 

BC 

15.BEXIT6 

YKVXY 

EQU 

* 

MV  I 

CHAR  *C '  Y* 

BEXIT6 

BEXIT 

EXC 

EEE 

DS 

OH 

DC 

X '  08  * 

DC 

X  *  08  * 

CC 

X  *  0  8 ' 

CC 

X'OO* 

CC 

X»  C8* 

CC 

X '  08* 

CC 

X  •  08  * 

DC 

X'CO* 

DC 

X*  08* 
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DC  X *  08  ' 

CC  X *  08 ' 

DC  X*C0« 

DC  X*  04* 

CC  2X*  0C* 

CC  X*00* 

EEEE  CS  OF 

8C  15,KXY 

BC  15 ,KVXY2 

8C  15 , YKVXY 

BC  15  »  KVX Y  3 

END 


MWT 


♦FUNCTION  . . .  — . - . . . -  - - 

♦ 

♦DISTINGUISHES  BETWEEN  3-STRCKE  (2  VERTS,  1  V-LIKE)  CR  4-STROKE  (ALL 
♦VERT)  M  AND  W  BASED  ON  THE  POSITIONS  OF  THE  ENDING  POINTS 
* 

* 

* 

♦  CALL 

♦  RCS  MWTA»ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

♦ 

* 

* 

♦INPUT  REGISTERS 
* 

♦  C(R6)  *  ADDRESS  OF  THE  TOP  OF  CHAREC'S  INTERNAL  PARAMETER  LIST 

♦  (PASSED  DOWN  DIRECTLY  FROM  CHAREC  ,  NGT  SET  SPECIFICALLY  IN 

♦  REC) 

♦  C ( R 13 )  =  NO.  OF  STROKES  -  l 

♦ 

* 

* 

♦INTERNAL  REGISTERS.  R8,  R9,  R1L,  R12,  R15 
* 

* 


USING 

XR6 , R6 

EXO 

ECU 

REGS 

C 

D6 

DSECT 

XR6 

DS 

OF 

XYEP 

ECU 

X  •  40  * 
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DS 

3F 

CS 

26H 

XYE 

CS 

IOC 

CS 

IOC 

DS 

3F 

DS 

1H 

CS 

2C 

DS 

3H 

DS 

1C 

CHAR 

DS 

1C 

MWT 

BOX 

SR 

R15*R15 

SR 

R9»R9  J 

SR 

R 1 1  *  R  1 1  K 

LA 

Rl2t  1 

MW1IN 

SLL 

R15,  1 

LA 

R8,0(R6,R15) 

TR 

XYEP+i { 1»R8 ) » 

LH 

R8»XYE(R15J 

EX 

0*  GGGE ( R8 ) 

MW11G 

LA 

R9,1(C,R9) 

BC 

15f MW  1 1 

MW 13G 

LA 

Rllt l(GfRll) 

MW  11 

SRL 

R15,  1 

BXLE 

R15f  R12f MW1IN 

CR 

R9.R12 

BC 

6f  MWW 

CR 

R11.R12  J 

BC 

6 » MWW  K  NOT 

MWM 

ECU 

* 

MV  I 

CHAR  tC  * M  * 

BC 

15,8EXIT4 

MWW 

EQU 

* 

MV  I 

CHAR  f C ' W  * 

BEXIT4 

BEXIT 

EXC 

GGE 

DS 

OH 

OC 

8X • 04* 

DC 

X '  08  * 

DC 

2X*  04* 

DC 

X'CO* 

DC 

X  *  08  * 

CC 

X '  04  * 

DC 

X  •  04* 

CC 

X*  CC* 

GGGE 

CS 

OF 

BC 

15 1  MW  1  IQ 

BC 

15t MW1I 

8C 

15 1 MW  13Q 

END 
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PSTEST 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  COMMA,  APOSTROPHE,  AND  NORMAL  SIZE  CHARACTERS. 
♦NORMAL  SIZE  IF  ITS  HEIGHT  IS  GREATER  THAN  3/8  OF  THE  NORMALLY  EXPECTED 
♦CHARACTER  HEIGHT  (‘CHAREC*  SETS  DYM  *  3/2  NORM  CHAR  HEIGHT).  COMMA  IF 
♦TOP  OF  CHARACTER  IS  IN  THE  LOWER  5/8  OF  A  CHARACTER  SPACE,  OTHERWISE 
♦APOSTROPHE.  IF  COMMA,  CHARACTER  CENTER  IS  SHIFTED  UPWARD  BY 
♦(NORMAL  CHARACTER  HEIGHT/4)  RASTERS. 

* 

* 

* 

♦CALL 

♦  RCS  PSTESTA,ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R8,  R9,  R15 
* 


* 


USING 

XR6 , R6 

EXO 

EQU 

REGS 

C 

C6 

DSECT 

XR6 

DS 

OF 

CS 

3F 

CS 

17H 

CYC 

DS 

IH 

CS 

2H 

YTC 

DS 

1H 

CS 

5H 

CS 

20C 

WIDTH 

DS 

1H 

HEIGHT 

DS 

1H 

DS 

2F 

DS 

IH 

CS 

2C 

DS 

3H 

CS 

IC 

CHAR 

DS 

IC 

CS 

54C 

CS 

14H 

DYM 

DS 

IH 
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DS 

6H 

CENT 

DS 

IF 

PSTEST 

BOX 

LH 

R 15 , DYM 

SRL 

R15,2  1/4  MAX  DY 

CH 

R15.DYC 

BC 

4, PTX 

LH 

R9.YTC 

SRL 

R9,2  YTC  IN 

RASTERS 

LH 

R15, HEIGHT 

SRL 

R 1 5 , 2 

HEIGHT  IN  RASTERS 

SR 

R8,R8 

DR 

R8*R  15 

R 8® REM ( YTC /HE IGHT ) 

SRL 

R 1 5  ,  1 

1/2  HEIGHT 

LR 

R9,R  15 

SRL 

R9, 2 

1/8  HEIGHT 

AR 

R 1 5 , R9 

5/8  HEIGHT 

CR 

R8,R15 

BC 

2, PTA 

♦REM (YTC/HEIGHT)  LSS,  EQ  5/8 

HEIGHT 

MV  I 

CHAR , X*  EB* 

♦SHIFT 

CENTER 

OF  COMMA  UP  BY 

HEIGHT/4 

RASTERS 

L 

R8,CENT 

LH 

R15, HEIGHT 

SRL 

R 15,  2 

AR 

R8,R 15 

ST 

R8,CENT 

BC 

15, PTX 

♦R£M (YTC/HEIGHT)  GTR  5/8  HEIGHT 
PTA  MV l  CHAR , X ' FO ' 

PTX  BEXIT  EXO 

END 


SYMT 


♦FUNCTION 

* 

♦RECOGNIZES  GEOMETRIC  SYMBOLS  BASED  FIRSTLY  ON  THE  NO.  OF  TIMES  EACH 

*  16-0 1 RECT I  ON  (THE  SAME  AS  THE  DIRECTIONS  IN  THE  INK  TRACK)  OCCURS, 
♦THEN  ON  NO.  OF  TIME-CORNERS,  THE  4-DIRECTION  SEQUENCE ,  SEPARATION  BET¬ 
WEEN  STARTING  AND  ENDING  POINTS,  ANO  ASPECT  RATIO. 

* 

* 

* 

♦  CALL 

* 


RCS  SYMTA,ENOCHAR,ECHAR 
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*EXIT  NOCHAR  WHEN  THE  SYMBOL  IS  NOT  ONE  OF  THE  GEOMETRIC  SYMBOLS 
♦EXIT  CHAR  WHEN  A  GEOMETRIC  SYMBOL  IS  RECOGNIZED 
* 

♦ 

♦ 

♦INPUT  REGISTER*  R6 

♦ 

♦INTERNAL  REGISTERS*  R7-R13,  RI5 
* 

♦ 


USING 

XR6»  R6 

EXO 

EQU 

0 

EX4 

ECU 

REGS 

4 

D6 

DSECT 

XR6 

DS 

OF 

CS 

2F 

CGDE 

DS 

IF 

OS 

10H 

N 

CS 

IH 

DS 

5H 

DXC 

DS 

1H 

CYC 

DS 

IH 

DS 

8H 

DS 

20C 

DS 

3F 

CS 

IH 

DS 

2C 

NCUSP 

CS 

IH 

CS 

2H 

DS 

1C 

CHAR 

DS 

1C 

DS 

6C 

XSP 

DS 

IOC 

YSP 

CS 

IOC 

XEP 

DS 

IOC 

YEP 

DS 

IOC 

DS  : 

8C 

DS 

2  IH 

CS 

IF 

DS 

6C 

CS 

IH 

DS 

IF 

CS 

20C 

DO 

DS 

IH 

C 1 

CS 

IH 

CS 

2H 

D4 

CS 

IH 

DS 

2H 

D7 

DS 

IH 

08 

DS 

IH 

C9 

OS 
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IH 

OS 

2H 

D12 

OS 

IH 

OS 

2H 

C15 

OS 

1H 

CN 

OS 

1H 

NTCUSP 

OS 

IH 

SYMT 

BOX 

SR 

R8,R8 

LH 

R9 1  ON 

LA 

R 1 5  »  5 

OR 

R8.R15 

LR 

R12.R9 

LH 

R13t  CN 

LR 

R 1 5  »  R 13 

SRL 

R15,2 

SR 

R13*  R  15 

♦C  (  R 12  ) 

=  0. 

2 ( NO.  OF  DIRECTION  OCCURANCES) 

♦  C ( R 13  ) 

=0. 

75 ( NO.  OF  C IRECT  ION  OCCURANCES) 

♦IS  NO. 

OF 

HCRIZ  GTR  0.2  ON? 

LH 

R7,D0 

AH 

R7f  08 

CR 

R  7  ,  R  1 2 

BC 

2 »  BOXTR I  YES 

♦NO*  IS 

NO 

.  OF  HORIZ  IN  1  DIRECTION  GTR 

♦1/8  ON 

? 

LH 

R8,DN 

SRL 

R8*3 

♦NEARLY 

RIGHT-DIRECTION 

LH 

R7»  0  15 

CR 

R7»R  8 

BC 

2, RIGHT 

LA 

RIO, 2 

SR 

R9*R9 

LA 

R1 1, 2 

NEARR 

LH 

R7,0G(R9) 

CR 

R7,R8 

BC 

2, RIGHT 

BXLE  R9,R1C, NEARR 

LA 

Ri It  18 

CR 

R9,R11 

BC 

10,N0TSC 

♦NEARLY 

LEFT 

-DIRECTION 

LA 

R9 1 14 

B 

NEARR 

♦  NO 

♦IS  NO. 

OF 

4  MAIN  DIRECTIONS  LESS  THAN  1/8  ON? 

NCTSQ 

LH 

R7  ,  DC 

AH 

R7,08 

AH 

R7,D4 

AH 

R7,D12 
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LH 

R9,DN 

SRL 

R9, 3 

CR 

R7,R9 

BC 

4, PBOXX  YES 

♦NO,  IS 

IT  GTR  0.2  ON? 

CR 

R7, R  12 

BC 

2, ROUND  YES 

LA 

RIO, 256 

BC 

15, ROUND 

♦IS  NO. 

OF  4 

MAIN  DIRECTIONS  AT  LEAST 

♦  3/4  ON 

? 

BOXTRI 

AH 

R7,D4 

AH 

R7.DI2 

CR 

R7, R 13 

8C 

10,B0XX  YES 

♦NO,  IS 

NO. 

OF  VERTS  GTR  1/4  DN? 

LH 

R9,DN 

SRL 

R9 , 2 

LH 

R7,D4 

AH 

R7,D 12 

CR 

R7,R9 

BC 

2, BOXX 

♦  NO 

♦IS  NO. 

IN  1 

HORIZONTAL  DIRECTION 

♦PLUS  2 

OTHER  DIRECTIONS  AT  LEAST  3/4 

♦FIRST 

FIND 

HORIZ.  DIRECTION 

LH 

R7,  DC 

CR 

R7,R 12 

BC 

10, RIGHT 

LH 

R7»D8 

CR 

R7, R 12 

BC 

4, ROUND 

♦R7  HAS 

NO. 

OF  RIGHTS  OR  LEFTS 

♦FIND  0 

CWNWARD  DIRECTION 

RIGHT 

LA 

R  9 , 2  0 

LA 

RIO, 2 

LA 

R  1 1 , 30 

DOWN 

LH 

R8, DO ( R9 ) 

AH 

R  8 , DO-2 ( R9 ) 

CR 

R8,R 12 

BC 

10, DOWNX 

BXLE 

R9 , R 1C , DOWN 

♦NO  SUC 

H  COWNWARD  DIRECTION 

BC 

15 ,RQUNO 

♦R9  CON 

TAINS 

DOWNWARO  DIRECTION  CODE 

♦R8  CON 

TAINS 

NO,  OF  DOWNWARDS 

♦FINO  U 

PWARC 

DIRECTION  DIRECTION 

OOWNX 

AR 

R7,R8 

LA 

R 15 , 24 

CR 

R9,R 15 

BC 

2, DGTR12 
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BC 

4  ,  DL  SS 12 

♦OQWNWA 

RD 

DIRECTION  IS  12 

♦UP  DIR 

ECTICN  MUST  BE  3,4, 

LA 

R9 , 6 

LA 

Rll, 10 

BC 

15, UP 

♦DOWN  0 

IR 

.  IS  10  OR  11 

♦♦UP  D I 

R. 

MUST  BE  4, 5, OR  6 

CLSS12 

LA 

R9,8 

LA 

Rll,  12 

BC 

15,  UP 

♦DOWN  D 

IR 

.  IS  13  OR  14 

♦UP  DIR 

•  1 

MUST  BE  2,3, 0R4 

DGTR12 

LA 

R9,4 

LA 

Rll, a 

♦FIND  U 

P  i 

DIRECTION 

UP 

LH 

R8»  DO ( R9 ) 

AH  R8»DC+2(R9) 

CR  R8,R 12 

8C  10,UPX 

BXLE  R9*R ICtUP 

♦NO  SUC  H  UPWARD  DIRECTION 
BC  15, ROUND 

♦R 7  CON  TAINS  NO.  OF  HORIZS.  ?  DOWNS 
*R8  CON  TAINS  NO,  OF  UPWARDS 
♦IS  TOT  AL  HORIZ,  UPS,  AND  DOWNS 
♦GREATE  R  THAN  3/4  DN? 


UPX 

AR 

R7»R8 

CR 

R7  ,  R  1 3 

BC 

12 1 NOTSQ 

♦TRIANGLE,  TRAP AZO I D ,  OR  ELLIPSE 

♦TRIANGLE  IF 

HORIZ  NOT  GTR  0.375 

LH 

R  7  ,  D  0 

AH 

R7,  D  8 

LR 

R15,R13 

SRL 

R15,  1 

CR 

R7.R15 

BC 

12 , TR  I  X 

♦CHECK 

TIME  CORNERS  FOR  TRAP 

CLI 

NTCUSP  +  1 »  X  *  02 * 

BC 

2, TRAPXX 

B 

ELPSX 

♦SYMBOL 

NOT 

BOX  OR  TRIANGLE 

♦TEST  F 

OR  CIRCLE  OR  ELLIPSE 

♦OR  TRAPAZOID 

♦4-ANGL 

E  SEQUENCE  MUST  BE 

♦0-3-2- 

l  CR 

2-3- 0-1 

ROUND 

CLI 

C0DE,X«B1* 

BC 

8 , OK  SYM 

CLI 

CODE, X*  39* 

BC 

8.0KSYM 

0.375  DN 
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♦3-2-1- 

0 

CLI 

CODE  *  X ' E4 • 

ec 

8  *  OK  SYM 

♦2-1-0- 

3 

CLI 

C0CE*X*93* 

BC 

8*QKSYM 

♦1-0-3- 

2 

CLI 

CODE  »  X ' 4E  * 

BC 

8*0KSYM 

* 

UJ 

i 

c 

i 

1 

2 

CLI 

CODE  »  X  *  C6  * 

BC 

8»  OKSYM 

♦0- 1—2— 

3 

CLI 

CODEtX* IB* 

BC 

8, OKSYM 

♦1-2-3- 

0 

CLI 

CODE  »  X • 6C • 

BC 

8, OKSYM 

♦IS  THI 

S  A 

POTENTIAL  PBOX? 

LA 

R9,256 

CR 

R9,R1C 

BC 

8*  PBOXX 

♦  TEST  FOR  NARROW  TRAPEZOID 
♦NO  MORE  THAN  4  ANGLES 
♦MOSTLY  HORIZONTAL 
♦CLOSE  ENDPOINTS 

CLI  N+ 1 »  X ' 04  * 

BC  2»N0SYMX 

LH  R7,D0 

AH  R  7*  D  1 

AH  R7  »0  15 

AH  R7*D8 

AH  R7  »  D  7 

AH  R7»  D9 

LH  R9,DN 

SRL  R9*  1 

CR  R7,R9 

BC  4,N0SYMX 

CLI  NTCUSP+i*X'C2* 

BC  I2»XELPS 

LA  RIO* 128 

BC  15  »  PBGXX 

♦DECIDE  IF  ELLIPSE 

♦ARE  ENDPOINTS  SEPARATED  VERTICALLY 

XELPS  LH  R  7  *  Y  SP 

SH  R7, YEP 

LPR  R7  *  R  7 

SLL  R7*l 

CH  R7  *  0 YC 

BC  4*  ELPSX 

BEXIT  EXO 


NCSYMX 
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♦DECIDE  BETWEEN  CIRCLE  AND  ELLIPSE 
♦AND  TRAPAZO ID 


CKSYM 

CLI 

NTCUSP  +  lt  X*02  * 

BC 

2» TRAPXX 

LH 

R7»  DYC 

SLL 

R7,  1 

CH 

R7  *DXC 

BC 

2 » C I RC  X 

ELPSX 

EQU 

♦ 

MV  I 

CHAR  »  X  *  76  * 

BC 

I5,BEXIT7 

8CXX 

EQU 

* 

MV  I 

CHAR  t  X  *  73  * 

BC 

15.BEXIT7 

CIRCX 

EQU 

♦ 

MV  I 

CHAR  »X*  7A* 

BC 

15,BEXIT7 

TRIX 

ECU 

♦ 

MV  I 

CHAR  t  X  *  75 ' 

BC 

I5,BEXIT7 

TRAPXX 

ECU 

♦ 

MV  I 

CHAR  »  X *  78* 

BC 

I5,BEXIT7 

♦TEST  F 

CR  CLOSENESS  OF  ENOPTS 

PBCXX 

LH 

R7f XSP 

SH 

R7  »  X  EP 

LPR 

R  7  »  R  7 

SLL 

R7»  I 

CH 

R7,DXC 

BC 

2fNOSYMX 

LH 

R7*  YSP 

SH 

R7» YEP 

LPR 

R7tR7 

SLL 

R7,l 

CH 

R  7»DYC 

BC 

2tNOSYMX 

LA 

R9  » 128 

CR 

R9.RIC 

BC 

8, TRAPXX 

XXPBOX 

ECU 

♦ 

MV  I 

CHAR , X *  77 * 

BEXIT7 

BEXIT 

EXA 

END 
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TILDT 

♦FUNCTION 

* 

♦RECOGNIZES  TILDA  BASED  ON  CHAR.  HEIGHT,  ASPECT  RATIO,  AND  FIRST  FOUR 
♦DIRECTIONS. 

♦ALTHOUGH  THIS  ROUTINE  ENCORPCRATES  ALL  THE  COOE  FOR  RECOGNITION,  IT 
♦PRESENTLY  ALWAYS  TAKES  THE  NOT  TILDA  EXIT. 

* 

* 

* 

♦  CALL 

♦  RCS  TILDTA,ENOTTIL»ETIL 

♦EXIT  NOTTIL  WHEN  THE  CHARACTER  IS  NOT  A  TILDA 
♦EXIT  TIL  WHEN  THE  CHARACTER  IS  A  TILDA 

♦ 

♦ 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTER.  R7 
* 

* 


USING 

XR6 , R6 

EXO 

EQU 

0 

EX4 

ECU 

REGS 

4 

D6 

DSECT 

XR6 

DS 

OF 

CS 

2F 

CODE 

DS 

IF 

DS 

I7H 

CYC 

CS 

1H 

DS 

4H 

ASPR 

DS 

IH 

DS 

3H 

CS 

20C 

DS 

3F 

DS 

1H 

CS 

2C 

CS 

3H 

P 

DS 

IC 

CHAR 

CS 

1C 

DS 

54C 

DS 

14H 

CYM 

DS 

1H 

TILCT 

BOX 

LH 

R7, OYM 

SRL 

R7,2 

CH 

R7, DYC 

BC 

4, NOT IL 

♦CYC  LE 

SS  THAN  1/4  CYM 

CLI 

ASPR  + 1 , X • 02  * 
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BC 

2*  NOT  I L 

CLI 

ASPR+ l ,  X  •  0 1  * 

BC 

4»  NOTIL 

*  ASPEC 

T  RATIO  IS  BETWEEN  1/2  AND  1/4 

♦TEST  F 

OR  ALLOWABLE  SEQUENCES 

♦O-O-O- 

0 

CLI 

CODE »  X ' CO  * 

BC 

8, TIL 

♦0-3-0- 

0 

CLI 

CODE  » X *  30 ' 

BC 

8, TIL 

♦0-3-0- 

1 

CLI 

CODE  »  X • 3 1 ' 

BC 

8, TIL 

♦l-O—o— 

0 

CLI 

CODE » X*  40* 

BC 

8, TIL 

♦  1-0-1— 

i 

CLI 

CODE  »  X  *  45  * 

BC 

8,  TIL 

♦1—0—3— 

0 

CLI 

CODE » X' 4C* 

BC 

8»  T I L 

♦1-0—3— 

1 

CLI 

CODE  »  X  *  4D • 

BC 

8, TIL 

♦1-3-0- 

0 

CLI 

CODE  »  X' 7C' 

BC 

8, TIL 

♦  1-3-0- 

1 

CLI 

CODE, X' 71* 

BC 

8, TIL 

1 

*■4 

I 

ro 

t 

H 

* 

1 

CLI 

CODE, X' 75* 

BC 

8, TIL 

NCTIL 

BEXIT 

EXO 

♦TEMPCR 

ARILY 

KILL  TILDA 

TIL 

BC 

15, NOTIL 

MVI 

P,X*  02* 

T  I LX 

EQU 

♦ 

MV  I 

CHAR , X • DO • 

BEXIT 

EX4 

ENO 
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TPXY 


♦FUNCTION 

* 

♦DISTINGUISHES  AMONG  2-STROKE  <1  VERT,  1  HORIZJ  T,  X,  Y,  AND  PLUS  BASED 
♦ON  THE  POSITIONS  OF  STARTING  AND  ENDING  POINTS 
* 

♦ 

♦ 

♦CALL 

♦  RCS  TPXYA, ECHAR 

♦EXIT  CHAR  WHEN  A  CHARACTER  IS  RECOGNIZED 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  R7-R9,  RI2,  R13,  R15 
* 

* 


USING 

XR6  »  R6 

EXO 

EQU 

0 

REGS 

D6 

DSECT 

XR6 

DS 

OF 

DS 

3F 

DS 

26H 

XYE 

DS 

IOC 

DS 

IOC 

DS 

3F 

CS 

IH 

DS 

2C 

DS 

3H 

P 

DS 

1C 

CHAR 

DS 

1C 

XYEP 

ECU 

X  *  AO  * 

X  YSP 

ECU 

X*  AA' 

TPXY 

BOX 

♦IS  SECOND  STROKE  HORIZONTAL? 

CLI 

P , X  *  02  * 

8C 

8, YES 

LA 

R9, 2 {Rfc ) 

VERT 

REF 

8 

GO 

YES 

LA 

R9  »  0 ( Rfc ) 

VERT 

REF 

GO 

ECU 

* 

SR 

R 15, R 15 

SR 

R12,R12 

LA 

R 13, 2 

TPLUS1 

LA 

R7»0(Rfc»R15) 

LH 

R8 , X YEP ( R7 1 

STH 

R8 , XYE+A 

TR 

XYE+5 ( 1 ) , TTE 

LH 

R8, XYE+A 
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EX 

OtTTTEIRB  ) 

TPLUS4 

TM 

XYSP+l ( R7 ) , X ' DC ' 

BC 

8.TPLSI  YS  GTR  3/4  DELTA  Y 

BC 

L»  TPLUS2  YS  LESS  1/4  DELTA 

♦START 

IN 

MIDDLE  Y 

TM 

XYSP+1(R7),X*C8* 

BC 

1 »  TPLUS5 

TM 

XYEP+1CR7)  ,X'OC' 

BC 

9,TPLUS2 

BC 

4, PTPXY 

♦START 

IN 

LOWER  MID  Y 

TPLUS5 

TM 

XYEP+1(R7)»X'CC* 

BC 

1  *  TPLUS2 

BC 

12, PTPXY 

♦START 

AT 

TCP 

TPLS1 

TM 

XYEP+1(R7),X*CC' 

BC 

8, TTPXY 

BC 

4, TPLUS3 

♦END  AT 

BOTTOM 

TM 

XYEP  +  HR7)  ,X'03» 

BC 

1, TPLUSX  LEFT 

BC 

8, XTPXY  RIGHT 

BC 

4, TPLUS2  MIDDLE 

♦START 

AT 

TCP,  END  IN  MIDDLE  Y 

♦IS  END 

IN 

RIGHT  MID  Y? 

TPLUS3 

TM 

XYEP+1(R7),X'03* 

8C 

5, TPLUS2 

♦YES 

TM 

XYEP+1(R7)»X'80* 

BC 

1, XTPXY 

CR 

R 12, R 13 

BC 

8, YTPXY 

BC 

6 , TPLUS  2 

TPLUSX 

LR 

R12, R 13 

TPLUS2 

BXLE  R15»R13*  TPLUS I 

CR 

R 12, R 13 

BC 

8, XTPXY 

TTPXY 

ECU 

* 

♦IS  VERT 

START  IN  UPPER  LEFT 

CLI 

XYSP+1(R9),X*C0» 

BC 

8, YTPXY 

MV  I 

CHAR , C  *  T  * 

BC 

15.BEXIT3 

PTPXY 

ECU 

* 

♦IS  VERT 

START  IN  UPPER  LEFT 

CLI 

XYSP+1 l R9 ) , X • CO • 

BC 

8, YTPXY 

MV  I 

CHAR , X ' CE ' 

BC 

15»8EXIT3 

XTPXY 

ECU 

* 

MV  I 

CHAR ,C • X  * 
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BC 

15»BEXIT3 

YTPXY 

ECU 

♦ 

MV  I 

CHAR  ,  C  *  Y  * 

BEXIT3 

8EXIT 

EXO 

TTE 

DS 

OH 

DC 

X*00* 

DC 

2X  *  C4  * 

CC 

X'CO* 

DC 

X«10* 

CC 

2X *  04 * 

DC 

X*  08* 

CC 

X*  10* 

CC 

2X  *  04 • 

DC 

X'10* 

CC 

X*CC* 

DC 

3X* 1C* 

TTTE 

CS 

OF 

BC 

15,TTPXY 

BC 

15, YTPXY 

BC 

15»PTPXY 

BC 

15,XTPXY 

BC 

END 

15,TPLLS4 

VERTST 


♦FUNCTION 

* 

♦DETERMINES  THE  SET  OF  STROKE  TYPES  WHEN  THE  MOST  RECENT  STROKE  IS  A 
♦VERTICAL-  BASED  ON  *P*  AND  THE  NO.  OF  STROKES 
* 

* 

* 

♦  CALL 

*  RCS  VERTSTAtEVltEV2fEVlHIt  EVINCT 

♦EXIT  VI  WHEN  THERE  IS  ONLY  ONE  VERTICAL  STROKE  (THE  MOST  RECENT) 

♦EXIT  V2  WHEN  THERE  ARE  2  VERTICAL  STROKES 

♦EXIT  VIH1  WHEN  THERE  IS  1  VERT  STROKE  AND  I  HQRIZ  STROKE 

♦EXIT  VLNCT  WHEN  THERE  IS  l  VERT  STROKE  AND  THE  PREVIOUS  SUBCHARACTER 

♦  IS  NEITHER  VERT  OR  HCRIZ 

* 

* 

* 

♦INPUT  REGISTER.  R6 
* 

♦INTERNAL  REGISTERS.  NONE 
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* 

♦ 

* 


USING 

XR6 ♦ R6 

EXO 

ECU 

0 

EX  12 

EQU 

12 

EX4 

EQU 

4 

EX8 

ECU 

REGS 

8 

C6 

DSECT 

XR6 

CS 

OF 

DS 

3F 

DS 

11H 

SN 

CS 

1H 

DS 

14H 

CS 

20C 

DS 

3F 

CS 

IH 

CS 

2C 

DS 

3H 

P 

DS 

1C 

VERTST 

BOX 

ClI 

P » X*  02 * 

BC 

8*  EQ2 

BC 

2,GTR2 

LSS2 

CLI 

P,X*  01* 

BC 

8,EQ1 

LSS  1 

CLI 

SN  + 1 »  X  *  0  l 

BC 

2»GTR2 

MV  I 

P,X«  01* 

BEXIT 

EXO 

EG1 

MV  I 

PtX*  00* 

BEXIT 

EX4 

EG2 

MV  I 

P, X*  00» 

BEXIT 

EX8 

GTR2 

MV  I 

PtX*  Cl* 

BEXIT 

END 

EX  12 

SN>  1 
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APPENDIX 

THE  OS/360  OPERATING  SYSTEM— 2250  DISPLAY  RECOGNITION  PROGRAM 


In  order  to  modify  the  GRAIL  recognition  program  for 
operation  under  OS/360  and  in  conjunction  with  a  2250  dis¬ 
play,  only  CHAREC  and  the  macros  need  be  changed: 

The  following  changes  must  be  made  for  the  program  to 
operate  under  OS/360: 

1)  Either  the  GRAIL  macros  (see  MACROS  below)  must  be 
modified  so  that  they  do  not  require  the  SVC  (super' 
visor  call)  command,  or  the  GRAIL  SVC's  must  be 
built  into  OS/360.  The  GRAIL  SVC's  are  used  to 
initiate  and  terminate  processes,  synchronize 
parallel  processes,  go  to  the  wait  state,  etc., 

and  may  be  replaced  by  the  equivalent  code.  The 
macros  must  be  added  to  the  macro  library. 

2)  CHAREC  must  be  modified  to  await  the  asynchronous 
event  of  either  a  pendown  or  the  expiration  of  the 
real-time  interval  timer.  This  is  done  by  first 
issuing  a  STIMER  OS/360  macro  and  then  a  WAIT 
OS/360  macro  for  the  Tablet  pen.  If  the  timer 
expires,  the  ECB  (Event  Control  Block)  for  the 
WAIT  is  posted  with  a  special  code  and  control  is 
returned  to  the  system.  When  control  is  returned 
from  the  WAIT,  the  special  code  is  checked  to  see 
if  it  was  posted  by  the  timer;  if  not,  the  timer 
is  cancelled  and  the  pendown  is  processed. 

The  following  changes  must  be  made  for  the  program  to 
operate  in  conjunction  with  a  2250  display: 

1)  CHAREC  must  be  modified  to  do  its  inking  on  the 

2250.  This  involves  formatting  the  x,y  coordinates 
and  writing  them  into  the  2250  buffer.  The  method 
of  erasing  the  ink  track  must  similarly  be  modified 
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2)  The  character  codes  (see  CRT  Display  Character 

Codes  below)  must  be  converted  to  EBCDIC  (Extended 
Binary-Coded-Decimal  Interchange  Code) .  This  may 
be  done  either  in  CHAREC  prior  to  outputting  a 
code,  or  externally  to  the  recognition  program. 


CRT  DISPLAY  CHARACTER  CODES 


Upper- 

■Case 

Lower- 

■Case 

Punctuation 

Hex 

Hex 

Hex 

Letter 

Code 

Letter 

Code 

Symbol 

Code 

A 

Cl 

A 

81 

+ 

CE 

B 

C2 

B 

82 

- 

EO 

C 

C3 

C 

83 

s 

FE 

D 

C4 

D 

84 

/ 

El 

E 

C5 

E 

85 

( 

CD 

F 

C6 

F 

86 

) 

DD 

G 

C7 

G 

87 

* 

DC 

H 

C8 

H 

88 

$ 

DB 

I 

C9 

I 

89 

• 

CB 

J 

Dl 

J 

91 

> 

EB 

K 

D2 

K 

92 

I 

FD 

L 

D3 

L 

93 

# 

FB 

M 

D4 

M 

94 

[ 

CF 

N 

D5 

N 

95 

] 

DF 

0 

D6 

0 

96 

1  < 

CC 

P 

D7 

P 

97 

!  > 

EE 

Q 

D8 

Q 

98 

/V 

70 

R 

D9 

R 

99 

DO 

s 

E2 

S 

A2 

A3 

T 

E3 

T 

Special 

U 

E4 

U 

A4 

Hex 

V 

E5 

V 

A5 

Symbol 

Code 

w 

E6 

W 

A6 

X 

E7 

X 

A7 

Erasure 

72 

Y 

E8 

Y 

A8 

Cannot 

Z 

E9 

Z 

A9 

Inter¬ 

pret 

EF 

. . ~.T - :  - - - 

1 

□ 

73 

o 

74 

V 

75 

o 

76 

O 

77 

ZHX 

78 

Numbers 

Hex 

Number 

Code 

0 

FO 

1 

FI 

2 

F2 

3 

F3 

4 

F4 

5 

F5 

6 

F6 

7 

F7 

8 

F8 

9 

F9 
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REGISTER  ASSIGNMENT 

Registers  are  referred  to  as  RO,  Rl,  . ..,  R15,  rather 
than  as  0,  1,  . ..,  15.  The  equivalence  is  made  by  the 
macro  REGS  (see  MACROS  below). 

Rl  through  R5  have  special  system  assignments: 

Rl  is  the  contextual  base-register. 

R2  is  the  read-only  code  base-register. 

R3  is  the  data  base-register  for  data  defined 
within  a  given  context. 

R4  is  an  address  argument  register,  and  is 
used  in  process  calls. 

R5  is  used  in  macro  and  process  calls,  and  as 
the  address  argument  register  for  SS  in¬ 
structions  with  two  formal  parameters. 

R6  has  a  special  assignment  in  REC  and  the  RCS's — 
it  is  locally  loaded  by  REC  to  reference  DSECT 
type  label  descriptions  of  CHAREC  s  data. 

PROCESSES 

CHAR 

CHAR  is  an  interface  process  between  a  Tablet  input 
device  and  the  recognition  program  on  one  side,  and  an 
application  program  on  the  other.  It  allows  its  parent 
process  (the  application  program)  to  interact  with  the 
Tablet  by  providing  a  convenient  level  of  control.  In 
addition  to  providing  CHAREC  outputs  (see  CHAREC  outputs 
below) ,  CHAR  provides  the  raw  Tablet  data  to  the  user. 

CHAR  is  a  read-only  reentrant  process  that  uses  two  other 
read-only  processes — CHAREC  (see  p.  20) ,  a  reentrant 
process,  and  TABLET,  a  serially  re-usable  process  (i.e., 
each  use  must  wait  for  the  hardware  device  to  be  free) , 
which  communicates  with  the  Tablet. 
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CHAR  allows  the  following  user  controls: 

Permit/inhibit  inking  (stylus  tracking)  by  CHAREC. 
Permit/inhibit  character  recognition. 
Permit/inhibit  halting  CHAREC. 

Permit/inhibit  providing  raw  data  to  either 
CHAREC,  or  the  user. 

Specify  ink  vector  length. 

CHAR  has  the  following  parallel  task  exits: 

Match  (coincidence  of  the  virtual  tablet  stylus 
and  displayed  data)  detected — similar  to  a 
light  pen  strike. 

Keyboard  character  detected  (for  optional  key¬ 
board  device) . 

Penup  detected. 

Raw  data  buffer  filled. 

Character  recognized. 

Character  not  recognized. 

CHAR  has  the  following  terminal  exits: 

Normal  termination  exit. 

Error  exit  (channel  multiplex  or  device  error) . 

CLOCK 

Function.  This  process  acts  as  a  real-time  clock 
that  is  turned  off  (takes  the  terminal  turnedi-off  exit)  by 
CHAREC  as  a  result  of  a  pendown,  or  sets  an  alarm  (takes 
the  expired  parallel  task  exit)  if  the  360  real-time  clock 
runs  longer  than  a  prespecified  time  before  a  pendown  occurs. 
Call. 


INST  ACLK.CLKA .FWAITBX, ITIME ,EEXP ,ET0FF 
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ACLK  is  a  linkage  between  CHAREC's  context  and 
CLOCK'S  context. 

CLKA  is  a  link  to  CLOCK. 

WAITBX  is  CHAREC's  PSG. 

TIME  is  the  time  at  which  CLOCK  takes  the  expired  exit. 
Exit  EXP  is  the  expired  (parallel)  exit. 

Exit  TOFF  is  the  turned-off  (terminal)  exit. 


MACROS 


BEXIT 

♦FUNCTION 

* 

♦RETURN  FROM  A  REMOTE  COOE  SEQUENCE 
* 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 

ELABEL  BEXIT  EEXIT 

ELABEL  L  R2,4(R1> 

EX  C, EEXIT. (R5) 

MEND 


BOX 


♦FUNCTION 

* 

♦INITIATES  A  REMOTE  CODE  SEQUENCE 
* 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 
ELABEL  BOX 

ELABEL  CSECT 

USING  *fR2 
MEND 

* 
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CLEAR 


♦FUNCTION 

* 

♦  PARALLEL  PROCESS  SYNCHRONIZER.  NULLIFIES  THE  ADVENT  OF  ' WATE '  ANO/CR 
♦'SET* 

* 


* 


♦ 


♦MACRO  DEFINITION 


* 

SLABEL 

SLABEL 


.A 

SLABEL 


MACRO 

CLEAR  £CNTX=I *  SPSG-0 

A I F  ( ' SCNTX*  EQ  'I'). A 

L  R5*SPSG 

TM  0(R5)»X*01* 

B  C  8**+6 

SVC  CRW 

N I  0{R5)»X'7E* 

MEXIT 

ANCP 

LA  R5,£PSG 

TM  0(R5)tX'Cl* 

BC  8»*+6 

SVC  CRW 

N I  0{R5)»X*7E* 

MEND 


EPLOG  (Epilogue) 


♦FUNCTION 

♦ 

♦TERMINATES  A  PROCESS 
* 

* 

* 

♦MACRO  DEFINITION 
♦ 

MACRO 

SLABEL  EPLOG  SEXI T, SS TATE , SPSW, SENTER 

SLABEL  LA  R5*£EXIT 
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AIF  ( • ESTATE*  EQ  'S'l.B 
SVC  RETURN 

MEXIT 

.B  ANCP 

LA  R6,£P$W 

LA  R7»  CENTER 
SVC  RETSUP 

MEND 


INST  (Instance) 


♦  FUNCTION  - - -  - - 

* 

* 

♦GENERATES  THE  CALLING  SEQUENCE  FOR  A  RE-ENTRANT  PROCESS 
* 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 

CL ABEL  INST  CCNTX , CLOCN, £A1 , CA2 » CA3 » CA4 , GA5 , CA6 , CA7 , £ A8 , CA9 » CA IOX 

»£All«£Al2t£Al3f£A14t£Al5f£A16t£A17f£Al8*£A19»£A20*£A21tX 
£A22t£A23,£A24,£A25tSA26,eA27,£A28,£A29t£A30,£A3I,£A32,£X 
A33,CA34,CA35fCA36tCA37,CA38,CA39',CA40,CA4l,CA42,CA43,CAX 
44*£A45*£A46 


LCL  A 

£ALL,£AL2,£AL3t£AL4 

LCLC 

CCG1 1 CCG2*  CCG3 

CLABEL 

LA 

R4.CCNTX 

LA 

R5.CL0CN 

SVC 

FORMAL 

CCG3 

SETC 

•  • 

CALI 

SETA 

2 

CAL2 

SETA 

6 

CAL3 

SETA 

I 

.A 

ANCP 

CALI 

SETA 

CAL  1+ 1 

CAL2 

SETA 

CAL2+1 

GCG1 

SETC 

'CSYSLIST(CALl)* (1*1) 

CCG2 

SETC 

*£ SY SLISTl CALI). CCG3* (2*8) 

A  I F 

( *  GCGI '  NE  *  E  * ) «E 

CAL3 

SETA 

C 

A  I  F 

(CALI  GT  3).G 

.F 

ANCP 

CAL4 

SETA 

CALI-3 

CAL4 

SETA 

CAL4*4 

LA 

R7,GS£SYSNDX 

ST 

R7,SAL4. (R6) 

ST 

R4 , SCNTX 

0R 

R5 

GSSSYSNOX 

B 

SCG2 

.Y 

ANGP 

DALI 

SETA 

SAL1+1 

A I  F 

( 'SSYSLIST(SALl)  •  EQ  *').W 

SCG2 

SETC  • 

GSYSLIST(SAL1).£CG3* (2,8) 

B  SCG2 

AGGB 

.Y 

•  w 

ANCP 

MEXIT 

.E 

A  IF 

( DAL2  LE  15). B 

.G 

ANCP 

SAL2 

SETA 

SAL2-1 

GAL4 

SETA 

SAL  1-3 

SAL4 

SETA 

SAL4-SAL2+6 

AIF 

(SAL1  GT  12). X 

SAL4 

SETA  0 

.X 

ANCP 

SAL4 

SETA 

SAL4+4 

STM 

R7,RSAL2,CAL4.(R6) 

SAL2 

SETA 

7 

A  IFB 

(SAL3  EQ  C ) . F 

.8 

ANGP 

AIF 

( * SCG1*  EQ  *I*).C 

L 

RSAL2, SCG2 

AGCB 

.A 

•  C 

ANCP 

LA 

RSAL2,SCG2 

AGCB 

.A 

'  -  ~  — . . . 

MEND 

PARL  (Parallel) 


♦FUNCTION 

* 


♦INITIATES  A  PARALLEL  PROCESS. 
♦PRIORITY  EXIT.  WHEN  THE  HIGH 
♦THIS  PROCESS  TAKES  THE  LOW  PRI 


THIS  PROCESS  FIRST  TAKES  THE  HIGH 
PRIORITY  TASK  IS  COMPLETED  OR  SUSPENDED, 
GRITY  EXIT. 


* 


* 


* 

♦MACRO  DEFINITION 
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SLABEL 
SL ABEL 


.A 

ELABEL 


MACRO 

PARL  £CNTX=I,£L0W=Q,£HIGH=0,£STATE=0,£PSW=0 
A I F  { * ECNTX '  EC  '  F  *  )  •  A 

SVC  PARIN 

B  CLOW 

B  £H  IGH 

MEXIT 
ANOP 

SVC  PARLEL 

8  £LOW 

LH  R5  » 10 ( R2 ) 

BCT  R5,*+4 

SLL  R5  »  2 

L  R5,C<R5,R1> 

A  IF  (‘ESTATE*  NE  *0').B 

L  R 1*  0 ( R 1 ) 

LM  R2»R3»4{R1 ) 

EX  0,£HIGH.(R5) 

MEXIT 

LA  R5,£HIGH.(R5) 

ST  R5,£PSW+4 

LA  R5,£PSW 

L  RltO(Rl) 

LM  R2,R3,4(Rl) 

LPSW  0  (  R  5  ) 

MEND 


PAWS  (Pause) 


♦FUNCTION 

* 

♦TERMINATES  A  FLOW  OF  CONTROL.  RESULTS  IN  INITIATING  THE  NEXT  TASK  CN 
♦THE  SUPERVISOR  TASK  LIST*  WHICH,  IF  THE  ONLY  TASK,  WILL  BE  THE  WAIT 
♦STATE  WITH  TRAPS  ENABLED. 

* 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 

£L ABEL  PAWS 

£L ABEL  SVC  PAUSE  ' 

MENO 

* 

* 
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P ROCS  (Process) 


♦FUNCTION 

* 

♦  SETS  UP  THE  PROCESS  ENTRY  POINT  *  ITS  IDENTIFICATION  NUMBER*  AND  ITS 
♦STORAGE  REQUIREMENTS 

* 


* 


* 


♦MACRO  DEFINITION 
* 


CL ABEL 
SLABEL 


MACRO 

PROCS  £CLEAR=3*£CNTX=3,£AUT0=0,SID=800CC0C0*SPRCLG=0 
CSECT 

USING  ^2 
LM  R2,R3,4<R4) 

B  GPRCLG 

CC  H* GCLEAR • 

DC  H*  SCNTX* 

DC  H • C • 

DC  H'SAUTO* 

DC  X*£ID' 

MEND 


PROLG  (Prologue) 


♦FUNCTION  - 

* 

♦INITIATES  A  PROCESS — PRECONDITIONS  CERTAIN  VALUES 
♦ 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 

GLABEL  PRCLG  SAUTO=YE S * £STATE=0 ♦ £P SG=C , £L I NK=0 

A  I F  ( *  SAUTC •  EG  'C' J.A 
SLABEL  CS  OH 

LR  R1,R4 

A  IF  ( *  ESTATE*  EQ  '0*  ).B 

LA  R4*£PSG 

LA  R5, SLINK 
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SVC  SUPER 
.B  MEXIT 

.A  ANGP 

SLAB EL  CS  OH 

LR  Rl,R4 

A  I F  ( *  ESTATE  *  EQ  *0*).C 

SVC  SUPER 

.C  MEXIT 

MEND 


RCS  (Remote  Code  Sequence) 


♦  FUNCTION  - —  _  _  _ - __ . 

* 

♦GENERATES  THE  CALLING  SEQUENCE  FOR  A  REMOTE  CODE  SEQUENCE— A  PRGCESS 
♦WITH  ONLY  REGISTER  I/O  WHICH  OPERATES  IN  THE  ENVIRONMENT  OF  THE  PARENT 
♦(CALLING)  CONTEXT 
* 

* 

* 

♦MACRO  DEFINITION 
* 

MACRO 

(•NAME  RCS  CLABELt  CA6,  CA7,  £A8,.£A9f  CAIO, £A1 1 » CA 12 » CA13* £A 14 , £A 15X 

*CA0»£Ei»£E2»£E3f£E4»SE5»£E6»£E7t£E8»£E9t£E10»CEll»££l2 
LCLA  CALlt£AL2»CAL3 
LCLC  £CG1,£CG2,£CG3 
CNAME  OS  OH 

CALI  SETA  l 

CAL3  SETA  0 

CCG3  SETC  *  ♦ 

.0  ANGP 

CALI  SETA  CAL1+1 

CAL2  SETA  CAL1+4 

GAL3  SETA  CAL3+1 

A  I  F  (  •CSYSLIST(CALl)  '  EQ  *M.A 

CCG 1  SETC  *£SYSLIST(£ALl)*litL) 

CCG2  SETC  'CSYSLISTJCALD.eCGS*  (2»8) 

A  I F  ( • CCG1 '  EC  »E').C 

A  I F  ( ' CCG1 *  EQ  •  I '  )  •  B 

L  RCAL2* CCG2 

AGCB  .D 

.8  LA  RCAL2,CCG2 

AGCB  .0 

.A  AIF  ( CAL 3  EQ  15). C 

AGCB  .D 
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.C  L  R2,£LABEL 


BALR 

R  5  »  R  2 

.Y 

8 

SCG2 

CALI 

SETA 

SAL  1+1 

A I F 

{  'CSYSLIST(SALl) ' 

EQ 

£CG2 

SETC 

•SSYSLIST(£ALi).£CG3* 

(2,8) 

AGC8 

.Y 

•  W 

ANOP 

MEND 

REGS  (Registers) 


♦FUNCTION 

* 

♦GENERATES  THE  CODE  RG  EQU  G,  R1  EGU  1,  .  „  RI5  ECU  15 
♦THE  SYMBOLIC  FORM  IS  USED  BY  THE  OTHER  MACROS 

* 

* 

* 


♦MACRO  DEFINITION 
* 


MACRO 

• 

SNAME 

REGS 

RO 

ECU 

0 

R  l 

EQU 

1 

R2 

ECU 

2 

R3 

ECU 

3 

R4 

ECU 

4 

R5 

ECU 

5 

R6 

ECU 

6 

R7 

ECU 

7 

R8 

ECU 

8 

R9 

ECU 

9 

RIO 

EQU 

10 

R 1 1 

ECU 

11 

R 12 

ECU 

12 

R13 

ECU 

13 

R  14 

EQU 

14 

R  15 

ECU 

MEND 

15 
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SET 

♦FUNCTION 

♦ 

♦PARALLEL  PROCESS  SYNCHRONIZER— DENOTES  AN  EVENT  HAS  OCCURED 
♦RESULTS  IN  SUPERVISOR  STACKING  A  • WAIT*  ED  TASK  ON  THE  SUPERVISOR  TASK 
♦LIST  IF  IN  THE  WAIT  STATE 
* 

* 

* 


♦MACRO  DEFINITION 
* 

MACRO 

SLABEL  SET 

SCNTX=I,SPSG=0 

AIF 

( *  SCNTX  *  EQ  •  I  •  )  - B 

SLABEL  L 

R5»SPSG 

AGO 

.A 

.B  ANCP 

SLABEL  LA 

R5,SPSG 

.A  TM 

C(R5)»X*Cl* 

BO 

GSSSYSNDX 

01 

C (R5 ) »X*  8C* 

B 

GSS  SYSNDX+2 

GSSSYSNDX  SVC 

STACK 

MEND 

svcs 


♦FUNCTION 

* 

♦CEFINES  PARAMETERS  FOR  MACROS 

* 


♦ 


* 

♦MACRO  DEFINITION 
* 

MACRO 

SNAME  SVCS 


STACK 

ECU 

5 

WAIT 

EQU 

6 

CCUPID 

EQU 

7 

FORMAL 

ECU 

8 

AUTO 

EQU 

9 

CRW 

EQU 

2G 

RETURN 

ECU 

15 

PARIN 

ECU 

21 

PARLEL 

ECU 

16 

PAUSE 

ECU 

17 

MEND 
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TABLE 


♦FUNCTION 

* 

♦PERFORMS  SEQUENCES  OF  TESTS  ON  ENCODED  1-BYTE  FEATURES 
* 

* 

♦ 

* 

♦MACRO  DEFINITION 

* 

MACRO 

SLABEL  TABLE  SA 1 , G A2 * SA3, EA4, SA5, 6A6 » GA7 , GA8 , GA9 * £A 10 , EA 1 1 , SA 12 , G A 13, X 
6A14,SAi5,GAlfc,£A17,SA18,£A19,£A20,GA2i,EA22, £A23,£A24,£X 
A25,&A26,£A27tSA28,£A29,GA30,£A3i,£A32,£A33,£A34,£A35,£AX 
36,&A37,£A38,£A39,SA40,£A4i,SA42,SA43,GA44,£A45,£A46,SA4X 
7 » SA48  » EA49 


LCLA 

SALi,6AL2 

LCLC 

SCG  1 , GCG2, ECG3*£CG4, GCG5 

A  IF 

(•SLABEL*  EC  **).0 

SLABEL 

EQU 

* 

•  C 

ANOP 

GAL  1 

SETA 

0 

.A 

ANOP 

SAL  1 

SETA 

SAL  1  +  1 

AIF 

MEXIT 

(*SSYSLIST(6AH)*  NE  *').8 

.B 

ANOP 

SCG 1 

SETC 

•SSYSLIST(SALl) • (1,1) 

AIF 

( • SCG 1  *  GT  *Z»),C 

SCG2 

SETC 

•ALK  • 

6CG3 

SETC 

•  )  • 

GCG4 

SETC 

•SSYSLIST(GALl) * (2,2) 

AIF 

( *  GCG4*  EC  *EX*).E 

DC 

GCG2SCG4SCG3 

GAL  1 

SETA 

GAL  1  +  2 

SCG2 

SETC 

•X*  •  • 

GCG3 

SETC 

t  •  *  « 

GCG4 

SETC 

*SSYSLIST(6AL1)* (1,2) 

DC 

SCG2SCG46CG3 

GAL  1 

SETA 

SAL  1— 1 

GCG2 

SETC 

*  AL 1  (  * 
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SCG3 

SETC 

•  )* 

SCG4 

SETC 

•-DATA* 

DC 

SCG2SSYSL I S  T { SAL  1 ) SCG4SCG3 

SAL  I 

SETA 

SAL  1  + 1 

AGCB 

.A 

.C 

ANOP 

SAL2 

SETA 

4096*£SYSLIST(£AL1) 

SCG2 

SETC 

SCG3 

SETC 

•-BASE* 

SCGA 

SETC 

*  AL2  (  * 

SCG5 

SETC 

•  )* 

SAL  1 

SETA 

SAL l+l 

CC 

SCG4SAL2SCG2SSYSLISTI SAL1 )SCG3£CG5 

AGCB 

.A 

.E 

ANOP 

SCG5 

SETC 

•ALK  • 

SAL  I 

SETA 

SAL  1  +  1 

DC 

SCG2SCGASCG3 

DC 

£CG5£SYSLIST(£AL1)£CG3 

SAL  1 

SETA 

SAL  1  +  1 

AGCB 

MEND 

.A 

WATE  (Wait) 


♦FUNCTION 

* 

♦WAITS  FOR  AN  EVENT  TO  OCCUR,  THEN  FLOW  OF  CONTROL  CONTINUES. 

♦  IF  AN  EVENT  HAS  ALREADY  OCCURRED  I  SEE  »SET«),  THEN  THE  FLOW  OF 
♦CONTROL  CONTINUES  UNINTERUPTED 

* 

* 

* 

♦MACRO  DEFINITION 
* 


MACRO 

SLABEL 

WATE 

SCNTX* I , SPSG 

A I F 

{ • SCNTX  *  EQ 

SLABEL 

LA 

R 5, SPSG 

AGO 

.8 

.A 

ANOP 

SLABEL 

L 

R5, SPSG 

.B 

TM 

C(R5) ,X*8C* 

BZ 

GWSSYSNDX 

N I 

0  ( R5  )  ,X*7F* 

)  '  - W  ■  - 

B 

GWSSYSNDX+2 

i  GWSSYSNDx' 

SVC 

WAIT  '■ 

| 

M  END 

-177- 


REFERENCES 


1.  Groner,  G.  F.,  "Real-Time  Recognition  of  Handprinted 

Text,"  AFIPS  Conference  Proceedings  (1966  FJCC) , 

Vol.  29,  Spartan  Books,  Inc.,  Baltimore,  Maryland, 
1966,  pp.  591-601.  (Also,  The  RAND  Corporation, 
RM-5016-ARPA,  October  1966.) 

2.  Ellis,  T.  O.,  and  W.  L.  Sibley,  On  the  Problem  of 

Directness  in  Computer  Graphics ,  The  RAND  Corpora¬ 
tion,  P-3697,  March  1968. 

3.  Brown,  G.  D. ,  and  C.  H.  Bush,  The  Integrated  Graphics 

System  for  the  IBM  2250,  The  RAND  Corporation, 
RM-5531— ARP A  (in  process)  . 

4.  Davis,  M.  R. ,  and  T.  0.  Ellis,  "The  RAND  Tablet:  A 

Man-Machine  Graphical  Communication  Device,"  AFIPS 
Conference  Proceedings  (1964  FJCC),  Vol.  26,  Part  1, 
Spartan  Books,  Inc.,  Baltimore,  Maryland,  1964,  pp. 
325-331.  (Also,  The  RAND  Corporation,  RM-4122-ARPA, 
August  1964.) 


